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Abstract 


This  report  documents  a  formal  semantic  specification  of  Stage  2  VHDL,  a  subset  of  the 
VHSIC  Hardware  Description  Language  (VHDL),  via  translation  into  the  temporal  logic 
of  the  State  Delta  Verification  System  (SDVS).  Stage  2  VHDL  is  the  third  of  successively 
more  sophisticated  VHDL  subsets  to  be  interfaced  to  SDVS. 

The  specification  is  a  continuation-style  denotational  semantics  of  Stage  2  VHDL  in  terms 
of  state  deltas,  the  distinguishing  logical  formulas  used  by  SDVS  to  describe  state  transi¬ 
tions.  The  semantics  is  basically  specified  in  two  phases.  The  first  phase  performs  static 
semantic  analysis,  including  type  checking  and  other  static  error  checking,  and  collects  an 
environment  for  use  by  the  second  phase.  The  second  phase  performs  the  actual  transla¬ 
tion  of  the  subject  Stage  2  VHDL  description  into  state  deltas.  An  abstract  syntax  tree 
transformation  is  interposed  between  the  two  translation  phases. 

The  translator  specification  was,  for  the  most  part,  written  in  DL,  the  semantic  metalan¬ 
guage  of  a  denotational  semantics  specification  system  called  DENOTE.  DENOTE  enables 
the  semantic  equations  of  the  specification  to  be  realized  both  as  a  printable  representation 
(included  in  this  report)  and  an  executable  Common  Lisp  program  that  constitutes  the 
translator’s  implementation.  However,  the  second  phase  semantics  of  the  VHDL  simulation 
cycle  has  a  direct  operational  implementation  in  the  VHDL  translator  code. 
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1  Introduction 


The  State  Delta  Verification  System  (SDVS),  under  development  over  the  course  of  several 
years  at  The  Aerospace  Corporation,  is  an  automated  verification  system  that  aids  in  writing 
and  checking  proofs  that  a  computer  program  or  (design  of  a)  digital  device  satisfies  a  formal 
specification. 

The  long-term  goal  of  the  SDVS  project  is  to  create  a  prototype  of  a  production-quality 
verification  system  that  is  useful  at  all  levels  of  the  hierarchy  of  digital  computer  systems; 
our  aim  is  to  verify  hardware  from  gate-level  designs  to  high-level  architecture,  and  to  verify 
software  from  the  microcode  level  to  application  programs  written  in  high-level  program¬ 
ming  languages.  We  are  currently  extending  the  applicability  of  SDVS  to  both  lower  levels 
of  hardware  design  and  higher  levels  of  computer  programs.  A  technical  overview  of  the 
system  is  provided  by  [1],  while  detailed  information  on  the  system  may  be  found  in  [2]  and 
[3]. 

Several  features  distinguish  SDVS  from  other  verification  systems  (refer  to  [4]  for  a  detailed 
discussion).  The  underlying  temporal  logic  of  SDVS,  called  the  state  delta  logic,  has  a 
formal  model-theoretic  semantics.  SDVS  is  equipped  with  a  theorem  prover  that  runs  in 
interactive  or  batch  modes;  the  user  supplies  high-level  proof  commands,  while  many  low- 
level  proof  steps  are  executed  automatically.  One  of  the  more  distinctive  features  of  SDVS 
is  its  flexibility  —  there  is  a  weU-defined  and  relatively  straightforward  method  of  adapting 
the  system  to  arbitrary  application  languages  (to  date:  ISPS,  Ada,  and  VHDL).  Further¬ 
more,  descriptions  in  the  application  languages  potentially  serve  as  either  specifications  or 
implementations  in  the  verification  paradigm.  Incorporation  of  a  given  application  language 
is  accomplished  by  translation  to  the  state  delta  logic  via  a  Common  Lisp  translator  pro¬ 
gram,  which  is  (generally)  automatically  derived  from  a  formal  denotational  semantics  for 
the  application  language. 

Prior  to  1987  we  adapted  SDVS  to  handle  a  subset  of  the  hardware  description  language 
ISPS.  However,  ISPS  has  serious  limitations  regarding  the  specification  of  hardware  at  levels 
other  than  the  register  transfer  level.  In  fiscal  year  1988  we  documented  a  study  of  some 
of  the  hardware  verification  research  being  conducted  outside  Aerospace  and  investigated 
VHDL,  an  IEEE  and  DoD  standard  hardware  description  language  released  in  December 
1987.  We  selected  VHDL  as  a  possible  medium  for  hardware  description  within  SDVS. 

The  aim  of  the  ongoing  formal  hardware  verification  effort  in  SDVS  is  to  verify  hard¬ 
ware  descriptions  written  in  VHDL  (VHSIC  Hardware  Description  Language).  This  choice 
of  hardware  description  language  is  particularly  well-suited  to  our  overall  aim  of  verifying 
hardware  designs  across  the  spectrum  from  gate-level  designs  to  high-level  architectures.  In¬ 
deed,  the  primary  hardware  abstraction  in  VHDL,  the  design  entity,  represents  any  portion 
of  a  hardware  design  that  has  well-defined  inputs  and  outputs  and  performs  a  weU-defined 
function.  As  such,  “a  design  entity  may  represent  an  entire  system,  a  sub-system,  a  board, 
a  chip,  a  macro-ceU,  a  logic  gate,  or  any  level  of  abstraction  in  between”  [5]. 

Prerequisites  for  adapting  SDVS  to  VHDL  are  (1)  to  define  VHDL  semantics  formally  in 
terms  of  SDVS’s  underlying  logic  (the  state  delta  logic)  and  (2)  to  implement  a  translator 
from  VHDL  to  the  state  delta  logic.  As  with  the  incorporation  of  Ada  into  SDVS  [6],  the 


1 


approach  taken  with  VHDL  has  been  to  implement  increasingly  complex  language  subsets; 
this  has  enabled  a  graded,  structured  approach  to  hardware  verification. 

In  fiscal  year  1989  we  defined  an  initial  subset  of  VHDL,  called  Core  VHDL,  that  cap¬ 
tured  the  most  essential  behavioral  features  of  VHDL,  including:  ENTITY  declarations; 
ARCHITECTURE  bodies;  CONSTANT,  VARIABLE,  SIGNAL,  and  PORT  declarations;  variable  and 
signal  assignment  statements;  IF,  CASE,  WAIT,  and  NULL  statements;  and  concurrent  PROCESS 
statements.  We  defined  both  the  concrete  syntax  and  the  abstract  syntax  for  Core  VHDL, 
formally  specified  its  semantics  and,  on  the  basis  of  this  semantic  definition,  implemented 
a  Core-VHDL-to-state-delta  translator  [7]. 

In  fiscal  year  1990,  SDVS  was  enhanced  to  provide  the  capability  of  verifying  hardware 
descriptions  written  in  Core  VHDL  [8,  9].  In  fiscal  year  1991,  the  translator  underwent  ex¬ 
tensive  revision  to  accommodate  a  second  VHDL  subset,  Stage  1  VHDL  [10],  which  included: 
WAIT  statements  in  arbitrary  contexts;  LOOP,  WHILE,  and  EXIT  statements;  TRANSPORT  delay; 
aggregate  signal  assignments;  and  a  revised  translator  structure. 

Implemented  in  fiscal  year  1992,  Stage  2  VHDL  is  a  considerably  more  complex  and  capa¬ 
ble  VHDL  language  subset.  Stage  2  VHDL  extends  Stage  1  VHDL  with  the  addition  of 
the  following  VHDL  language  features:  (restricted)  design  files,  declarative  parts  in  entity 
declarations,  package  STANDARD  (containing  predefined  types  BOOLEAN,  BIT,  INTEGER,  TIME, 
CHARACTER,  REAL,  STRING,  and  BIT-VECTOR),  user-defined  packages,  USE  clauses,  array  type 
declarations,  enumeration  types,  subprograms  (procedures  and  functions,  excluding  param¬ 
eters  of  object  class  SIGNAL),  concurrent  signal  assignment  statements,  FOR  loops,  octal  and 
hexadecimal  representations  of  bitstrings,  ports  of  default  object  class  SIGNAL,  and  general 
expressions  of  type  TIME  in  AFTER  clauses. 

The  VHDL  and  Ada  translators  have  been  reengineered  to  a  uniform  implementation  re¬ 
flecting  language  similarities  where  these  exist,  and  optimized  for  greater  space-  and  time- 
efficiency. 

The  purpose  of  the  present  report  is  to  provide  a  formal  description  of  the  translation  of 
Stage  2  VHDL  hardware  descriptions  into  state  deltas.  This  amounts  to  a  formal  seman¬ 
tic  specification  of  Stage  2  VHDL,  presented  herein  as  a  continuation-style  denotational 
semantics  [11]  for  which  the  state  delta  language  provides  the  domain  of  meanings.  The 
translation  basically  consists  of  parsing  followed  by  two  semantic  analysis  phases. 

The  first  phase  receives  the  abstract  syntax  tree  generated  by  the  Stage  2  VHDL  parser  for 
a  given  hardware  description,  and: 

•  performs  static  semantic  analysis,  including  type  checking; 

•  collects  an  environment  that  associates  aJl  names  declared  in  the  subject  Stage  2 
VHDL  hardware  description  with  their  attributes; 

•  appropriately  uniquely  qualifies  identical  names  declared  in  different  scopes,  as  re¬ 
quired  by  the  static  block  structure  of  the  hardware  description;  and 

•  for  the  convenience  of  the  second  phase,  transforms  the  abstract  syntax  tree  of  the 
subject  hardware  description. 
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Phase  2  receives  the  transformed  abstract  syntax  tree  and  the  environment  constructed  by 
Phase  1,  and  uses  these  to  translate  the  Stage  2  VHDL  hardware  description  into  state 
deltas.  This  translation  is  incremental,  in  the  sense  that  it  is  driven  by  symbolic  execution 
of  the  hardware  description,  producing  further  state  deltas  as  symbolic  execution  proceeds. 

The  Stage  2  VHDL  formal  description  is  an  extensive  revision  and  expansion  of  the  formal 
specifications  of  the  Core  VHDL  and  Stage  1  VHDL  translators  [7, 10].  The  Stage  2  VHDL 
translator  specification  was  written  in  DL,  the  semantic  metalanguage  of  a  denotational 
semantics  specification  system  called  DENOTE  [12].  DENOTE  enables  the  semantic  equa¬ 
tions  of  the  specification  to  be  automatically  translated  into  both  a  printable  representation 
(included  in  this  report)  and  an  executable  Common  Lisp  program  that  constitutes  the 
translator’s  implementation. 

This  report  is  organized  as  follows. 

•  Our  approach  to  the  semantics  of  Stage  2  VHDL  is  discussed  in  Section  2. 

•  Section  3  contains  an  overview  of  the  Stage  2  VHDL  subset. 

•  Section  4  provides  preliminary  information  (background  and  notation)  on  the  partic¬ 
ular  method  of  semantic  description  used. 

•  Section  5  lists  both  the  concrete  and  abstract  syntax  of  Stage  2  VHDL. 

•  Section  6  presents  the  Stage  2  VHDL  static  semantics. 

•  Section  7  presents  the  interphase  abstract  syntax  tree  transformation. 

•  Section  8  presents  the  Stage  2  VHDL  dynamic  semantics  in  terms  of  state  deltas. 

•  Finally,  some  concluding  remarks  are  made  in  Section  9. 
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2  Our  Semantic  Approach  to  Stage  2  VHDL 


The  approach  we  have  taken  to  translating  Stage  2  VHDL  descriptions  is  much  the  same  as 
that  for  Stage  1  VHDL,  but  differs  in  an  essential  respect  from  the  Core  VHDL  approach. 
For  the  sake  of  completeness,  we  shall  recapitulate  this  difference  here. 

The  VHDL  translator  essentially  functions  as  a  simulator  kernel,  maintaining  a  clock  and  a 
list  of  future  events  that  are  defined  as  state  deltas.  For  Core  VHDL,  however,  the  translator 
transformed  possibly  multiple  Core  VHDL  statements:  sequential  statements  between  WAIT 
statements  within  a  process  were  all  translated  and  then  composed  into  a  single  state  delta. 
The  translator  updated  the  clock  to  the  next  time  at  which  a  signal  driver  became  active 
or  a  process  resumed.  As  the  clock  advanced,  the  translator  merged  the  composite  state 
deltas  into  a  single  state  delta  that  specified  the  behavior  of  all  processes  at  that  point  in 
the  execution. 

For  Stage  1  VHDL,  we  re-evaluated  the  feasibility  of  using  composition  in  the  translation 
of  VHDL  to  state  deltas,  and  concluded  that  although  composition  had  initially  seemed 
viable  in  the  case  of  Core  VHDL,  it  is  impossible  in  principle  to  apply  the  technique  to 
more  complex  VHDL  subsets,  as  the  attempt  would  require  the  ability  to  compose  over 
sections  of  VHDL  code  that  would  necessitate  static  proof  in  SDVS.  More  generally,  the 
ability  to  compose  over  arbitrary  WAIT-bracketed  code  in  PROCESS  statements  would  be 
tantamount  to  the  automatic  construction  of  correctness  proofs  without  user  intervention 
—  a  theoretically  undecidable  problem. 

Therefore,  we  decided  to  abandon  composition  for  Stage  1  VHDL  and  succeeding  SDVS 
VHDL  subsets.  Instead,  within  a  given  execution  (simulation)  cycle,  processes  are  translated 
sequentially,  in  the  order  in  which  they  appear  in  the  VHDL  description,  and  the  user  has 
control  over  stepping  through  the  sequential  statements  within  each  process.  Thus,  rather 
than  trying  to  have  the  VHDL  translator  model  the  concurrency  of  the  processes,  we  choose 
to  take  for  granted  a  certain  “metatheorem”  about  VHDL:  that  any  two  sequentializations 
of  the  processes  are  equivalent.  A  brief  justification  for  this  point  of  view  is  that  the  problem 
of  mutual  exclusion  is  not  a  concern  in  VHDL,  since 

•  all  variables  are  local  to  the  process  in  which  they  are  declared,  and 

•  distinct  processes  modify  distinct  drivers  of  a  given  signal  (known  as  a  resolved  signal), 
and  the  ultimate  signal  value  is  obtained  by  application  of  a  user-defined  resolution 
function^ 

A  gratifying  benefit  of  the  revised  translation  strategy  is  that  the  understandability  of  the 
resulting  proofs  has  been  remarkably  improved  —  the  dynamic  flow  of  process  execution 
precisely  reflects  the  simulation  semantics  of  VHDL  (as  defined  in  the  VHDL  Language 
Reference  Manual  [5]),  but  with  the  crucial  aspect  of  symbolic  execution  (use  of  abstract 
values  rather  than  concrete)  thrown  in.  The  current  VHDL  translator  thus  functions  as 
a  “symbolic  simulator,”  and  is  a  considerably  more  intuitive  proof  engine  than  was  its 
incarnation  for  Core  VHDL. 

^As  of  Stage  2  VHDL,  however,  resolved  signals  are  still  disallowed. 
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Enhancements  that  need  to  be  made  to  SDVS  to  support  efficient  Stage  2  VHDL  proofs 
consist  principally  of  Simplifier  support  for  reasoning  about  symbolic  representations  of 
VHDL  time,  and  a  command  for  induction  over  simulation  cycles  of  a  VHDL  description 
(or  an  articulation  of  how  to  use  the  current  induct  command  for  that  purpose). 
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3  Overview  of  Stage  2  VHDL 


Stage  2  VHDL  comprises  a  relatively  powerful  behavioral  subset  of  VHDL.  That  is  to  say, 
Stage  2  VHDL  descriptions  are  confined  to  the  specification  of  hardware  behavior  or  data 
flow,  rather  than  structure.  More  comprehensive  VHDL  subsets  for  SDVS  (anticipated: 
Stage  3  VHDL)  will  include  constructs  for  the  structural  description  of  hardware  in  terms 
of  its  hieraxchical  decomposition  into  connected  subcomponents.  The  Stage  2  VHDL  data 
types  are:  BOOLEAN,  BIT,  INTEGER,  REAL  (preliminary  version),  TIME  (a  predefined  physical 
type  of  INTEGER  range),  CHARACTER,  STRING  (arrays  of  characters),  BITJTECTOR  (arrays  of 
bits),  user-defined  enumeration  types,  and  user-defined  array  types. 

3.1  General  Remarks 

The  primary  VHDL  abstraction  for  modeling  a  digital  device  is  the  design  entity.  A  design 
entity  consists  of  two  parts:  an  entity  declaration,  providing  an  external  view  of  the  compo¬ 
nent  by  declaring  the  input  and  output  ports,  and  an  architecture  body,  giving  an  internal 
view  in  terms  of  component  behavior  or  structure. 

In  Stage  2  VHDL,  each  architecture  body  is  constrained  to  be  behavioral,  consisting  of  a 
set  of  declarations  and  concurrent  statements  defining  the  functional  interpretation  of  the 
device  being  modeled.  The  allowable  concurrent  statements  are  of  two  kinds:  PROCESS 
statements  and  concurrent  signal  assignment  statements,  to  be  discussed  below. 

A  PROCESS  statement,  the  most  fundamental  kind  of  behavioral  concurrent  statement  in 
VHDL,  is  a  block  of  sequential  zero-time  statements  that  execute  sequentially  but  “in¬ 
stantaneously”  in  zero  time  [13],  and  some  (possibly  none)  distinguished  sequential  WAIT 
statements  whose  purpose  is  to  suspend  process  execution  and  allow  time  to  elapse. 

A  process  typically  schedides  future  values  to  appear  on  data  holders  called  signals,  by 
means  of  sequential  signal  assignment  statements.  The  execution  of  a  signal  assignment 
statement  does  not  immediately  update  the  value  of  the  target  signal  (the  signal  assigned 
to);  rather,  it  updates  the  driver  associated  with  the  signal  by  placing  (at  least  one)  new 
transaction,  or  time-value  pair,  on  the  waveform  that  is  the  list  of  such  transactions  con¬ 
tained  in  the  driver.  Each  transaction  projects  that  the  signal  wiU  assume  the  indicated 
value  at  the  indicated  time;  the  time  is  computed  as  the  sum  of  the  current  clock  time  of  the 
model  and  the  delay  specified  (explicitly  or  implicitly)  by  the  signal  assignment  statement. 

Two  types  of  time  delay  can  be  specified  by  a  sequential  signal  assignment  statement,  and 
Stage  2  VHDL  encompasses  both.  Inertial  delay,  the  default,  models  a  target  signal’s  inertia 
that  must  be  overcome  in  order  for  the  signal  to  change  value;  that  is,  the  scheduled  new 
value  must  persist  for  at  least  the  time  period  specified  by  the  delay  in  order  actually  to 
be  attained  by  the  target  signal.  Transport  delay,  on  the  other  hand,  must  be  explicitly 
indicated  in  the  signal  assignment  statement  with  the  reserved  word  TRANSPORT,  and  models 
a  “wire  delay”  wherein  any  pulse  of  whatever  duration  is  propagated  to  the  target  signal 
after  the  specified  delay. 
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In  lieu  of  explicit  WAITs,  a  process  may  have  a  sensitivity  list  of  signals  that  activate  process 
resumption  upon  receiving  a  distinct  new  value  (an  event).  The  sensitivity  list  implicitly 
inserts  a  WAIT  statement  as  the  last  statement  of  the  process  body. 

The  other  class  of  concurrent  statement  in  Stage  2  VHDL  is  that  of  concurrent  signal 
assignment  statements.  These  always  represent  equivalent  PROCESS  statements,  and  come 
in  two  varieties:  conditional  signal  assignment  and  selected  signal  assignment.  A  conditional 
signal  assignment  is  equivalent  to  a  process  with  an  embedded  IF  statement  whose  branches 
are  sequential  signal  assignments;  similarly,  a  selected  signal  assignment  is  equivalent  to 
a  process  with  an  embedded  (possibly  degenerate)  CASE  statement  whose  branches  are 
sequential  signal  assignments.  The  VHDL  translator  syntactically  transforms  concurrent 
signal  assignment  statements  to  their  corresponding  PROCESS  statements  prior  to  translation 
into  state  deltas. 

Signals  act  as  data  pathways  between  processes.  Each  process  applies  operations  to  values 
being  passed  through  the  design  entity.  We  may  regard  a  process  as  a  program  implementing 
an  algorithm,  and  a  Stage  2  VHDL  description  as  a  collection  of  independent  programs 
running  in  parallel. 

In  full  VHDL,  a  target  signal  can  be  assigned  to  in  multiple  processes,  in  which  case  it 
possesses  correspondingly  many  drivers  for  updating  by  the  different  processes;  the  value 
taken  on  by  the  signal  at  any  particular  time  is  then  computed  by  a  user-defined  resolution 
function  of  these  drivers.  As  did  previous  SDVS  VHDL  subsets.  Stage  2  VHDL  disallows 
such  resolved  signals:  a  signal  is  not  permitted  to  appear  as  the  target  of  a  sequential 
signal  assignment  statement  in  more  than  one  process  body;  equivalently,  every  signal  has 
a  unique  driver. 

3.2  Stage  2  VHDL  Language  Features 

Concrete  and  abstract  syntaxes  for  Stage  2  VHDL  have  been  defined  —  see  Section  5  —  as 
required,  of  course,  for  the  implementation  of  the  Stage  2  VHDL  translator.  Perhaps  the 
following  summary  provides  the  best  way  of  seeing  the  Stage  2  VHDL  language  subset  and 
translator  at  a  glance. 

•  VHDL  design  files 

—  user-defined  packages  (optional),  USE  clauses  (optional),  entity  declaration,  ar¬ 
chitecture  body 

—  restriction:  unique  entity  and  architecture  per  file 

•  package  STANDARD 

—  predefined  types:  BOOLEAN,  BIT,  INTEGER,  TIME,  CHARACTER,  REAL,  STRING,  BIT-VECTOR 

—  various  units  of  type  TIME:  FS,  PS,  NS,  US,  MS,  SEC,  MIN.  HR 

—  restriction:  the  implementation  of  type  REAL  is  preliminary;  it  supports  parsing 
and  Phase  1  translation  but  no  Phase  2  reasoning 
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•  user-defined  packages 

—  package  declarations 

—  package  bodies 

•  USE  clauses  for  accessing  packages 

—  restriction:  ALL  is  the  only  pernaissible  suffix 

•  entity  declarations 

—  entity  header:  port  declarations 

—  entity  declarative  part:  other  declarations 

•  architecture  bodies 

•  object  declarations 

—  CONSTANT,  VARIABLE,  SIGNAL 

—  octal  and  hexadecimal  representations  of  bitstrings 

—  entity  ports  of  default  object  class  SIGNAL 

•  array  type  declarations 

—  arrays  of  arbitrary  element  type 

—  bidirectional  arrays,  unconstrained  arrays 

•  user-defined  enumeration  types 

•  signals  of  arbitrary  array  and  enumeration  types 

•  subprograms 

—  procedures  and  functions:  declarations  and  bodies 

—  restriction:  excluding  parameters  of  object  class  SIGNAL 

•  concurrent  statements 

—  PROCESS  statements 

—  conditional  signal  assignments 

—  selected  signal  assignments 

•  sequential  statements 

—  null  statement:  NULL 

—  variable  assignments  (scalar  &  composite) 

—  signal  assignments  (scalar  &  composite,  inertial  or  TRANSPORT  delay) 

—  conditionals:  IF,  CASE 

—  loops:  LOOP,  WHILE,  FOR 
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—  loop  exits:  EXIT 

—  subprogram  calls 

—  subprogram  return:  RETURN 

—  process  suspension:  WAIT 

•  operators 

—  numeric  unary  operators:  ABS,  +,  - 

—  numeric  binary  operators:  +,  *,  /,  **  (exponentiation), 

MOD  (modulus),  REM  (remainder) 

—  boolean  and  bit  operators:  NOT,  AND,  NAND,  OR,  NOR,  XOR 

—  relational  operators:  =,  /=,  <,  <=,  >,  and  >= 

—  array  concatenation  operator:  & 

—  restriction:  =,  /=,  and  &  are  the  only  Stage  2  VHDL  operators  defined  for  com¬ 
posite  types  (i.e.,  BIT-VECTOR  and  user-defined  array  types). 
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4  Preliminaries 


The  purpose  of  this  section  is  to  provide  some  of  the  background  and  notation  necessary 
for  the  research  documented  in  this  report.  It  is  assumed  that  the  reader  is  familiax  with 

•  the  descriptive  aspects  of  the  denotational  technique  for  expressing  the  semantics 
of  programming  languages  (including  concepts  such  as  syntax,  semantic  functions, 
lambda  notation,  curried  function  notation,  environments,  and  continuations)  as  pre¬ 
sented  in  [11];  and 

•  the  theory  and  practice  of  state  deltas  [2,  14,  15]. 

Denotational  semantic  definitions  of  programming  languages  consist  of  two  parts:  syntax 
and  semantics.  The  syntax  part  consists  of  domain  equations  (equivalent  to  productions  of 
a  context-free  grammar)  that  define  the  syntactic  variables  (analogous  to  grammar  nonter- 
noinals)  and  the  (abstract)  syntactic  elements  of  the  language.  The  semantic  part  defines  a 
semantic  function  for  each  syntactic  variable  and  the  definition  (by  syntactic  cases)  of  these 
functions;  it  also  defines  auxiliary  functions  that  are  used  in  the  definition  of  the  semantic 
functions.  The  semantic  functions  constitute  a  syntax-directed  mapping  from  the  syntactic 
constructs  of  the  language  to  their  corresponding  semantics. 

Certain  principal  notions,  among  which  are  environments  and  continuations,  are  central  to 
standard  denotational  semantic  definitions  of  programming  languages. 


4.1  Environments 

Environments  are  functions  from  identifiers  to  their  “definitions”;  these  definitions  are  called 
denotable  values.  Identifiers  that  have  no  corresponding  definition  are  formally  bound  to 
the  special  token  *UNBOUND*.  The  identifiers  are  names  for  objects  (e.g.,  constants, 
variables,  procedures,  and  exceptions)  in  a  program  written  in  the  language  being  defined. 
Environments  are  usually  created  and  modified  by  the  elaboration  of  declarations  in  the 
language. 

The  domain  of  environments,  Env,  is  typically 

Env  =  Id  (Dv  -t-  *UNBOUND*) 

where  Id  and  Dv  are,  respectively,  the  domains  of  identifiers  and  denotable  values.  If  r  is  an 
environment,  then  r(id)  is  the  value  (*UNBOUND*  or  a  Dv-value)  bound  to  the  identi¬ 
fier  id.  The  empty  environment  rO  is  the  environment  in  which  rO(id)  =  *UNBOUND* 
for  every  identifier  id.  In  definitions  of  languages  that  have  block-structured  scoping,  it 
is  necessary  to  combine  two  environments  that  may  each  associate  a  denotable  value  with 
the  same  identifier.  If  rl  and  r2  are  environments,  then  rl[r2]  is  a  combined  environment 
defined  by 

rl[r2](id)  =  (r2(id)  =  ^UNBOUND*  ^  rl(id),  r2(id)) 

where  (a  b,c)  is  an  abbreviation  for  if  a  then  b  else  c.  That  is,  in  rl[r2],  the  r2- value 
of  an  identifier  “overrides”  the  rl-value  of  that  same  identifier,  except  when  its  r2- value  is 
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*UNBOUND*.  An  environment  can  be  changed  by  this  means.  If  r  is  an  environment, 
d  a  value,  and  id  an  identifier,  then  r[d/id]  denotes  an  environment  that  is  the  same  as  r 
except  that  (r[d/id])(id)  =  d. 

Tree-Structured  Environments 

When  the  use  of  the  above  combination  of  environments  is  inconvenient  or  inappropriate, 
it  is  sometimes  necessary  to  use  a  structured  collection  of  environments.  A  tree-structured 
environment  (TSE)  is  a  tree  whose  nodes  are  environments  and  whose  edges  are  labeled  by 
identifiers  or  numerals,  called  edge  labels,  where  no  two  edges  emanating  from  a  given  node 
can  have  the  same  label.  A  path  is  a  list  of  zero  or  more  edge  labels.  Such  a  path  denotes 
a  sequence  of  connected  edges  from  the  root  node  to  another  node  of  a  tree-structured 
environment.  A  path  p  can  be  extended  hy  an  edge  labeled  elbl  via  %(p)(elbl),  where 

%(path)(id)  =  append(path,(id)) 

Formally,  a  TSE  can  be  regarded  as  a  partial  function  from  paths  to  environments.  Thus 
the  set  of  paths  in  a  TSE  t  is  precisely  the  set  of  paths  p  for  which  t(p)  is  defined.  If  t  is 
a  TSE  and  p  is  a  path  in  t,  then  t(p)  denotes  the  unique  environment  in  t  located  at  the 
end  of  p. 

If  t  is  a  TSE  and  p  is  one  of  its  paths,  the  pair  (t,p)  can  be  used  to  represent  the  set  of 
environments  containing  aU  of  the  identifier  bindings  visible  at  a  given  point  in  a  Stage  2 
VHDL  hardware  description,  where  the  identifiers  in  p  are  the  names  of  the  lexical  scopes 
whose  local  environments  are  on  the  path  p.  At  the  program  point  whose  identifier  bindings 
are  represented  by  (t,  (elbli,  ...,  elbl„)),  t((elbli,  ...,  elbl„))  is  the  most  localset  of 
bindings,  . . .,  and  t(e)  is  the  most  global  set  of  bindings,  where  e  denotes  the  empty  path. 
Thus  t(p)(id)  is  the  value  bound  to  id  in  the  most  local  environment  of  (t,p). 

Qualified  Names 

The  same  identifier  is  bound  in  every  component  environment  of  a  TSE,  although  many 
(if  not  most)  of  those  bindings  may  be  to  *UNBOUND*.  It  is  convenient  to  be  able  to 
distinguish  uniquely  an  occurrence  of  an  identifier  by  prefixing  to  the  identifier  a  represen¬ 
tation  of  the  path  that  designates  the  location  in  the  TSE  of  the  environment  associated 
with  that  instance.  Such  a  uniquely  distinguished  identifier  will  be  called  a  fully  qualified 
name.  Thus  if  t  is  a  TSE,  p  one  of  its  paths,  and  id  an  identifier,  then  $(p)(id)  is  id’s  fully 
qualified  name  relative  to  t(p).  If  p  =  (elbli,  . . . ,  elbl„),  then  $(p)(id)  is  represented  as 

elbli .elbl2 . elbl„.id.  When  p  =  c  (empty  path),  $(c)(id)  is  simply  represented  by 

id.  $  is  defined  by 

$(path)(id)  =  (path  =  e  — ►  id,  $(rest(path))(catenate(last(path),“.”,id))) 

The  function  rest  returns  a  list  consisting  of  the  first  n  -  1  elements  of  an  n-element  list, 
and  catenate  is  a  curried  function  that  concatenates  its  (variable  number  of)  arguments 
into  an  atom. 

Identifiers  qualified  with  the  full  TSE  path  that  locates  their  associated  component  envi¬ 
ronment  are  cumbersome  and  hard  to  read.  If  only  those  instances  of  identifiers  not  bound 
to  *UNBOUND*  are  of  interest,  then  such  full  name  qualification  may  be  unnecessary. 
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Often  a  suffix  of  this  path  is  sufficient  to  distinguish  uniquely  an  instance  of  such  an  iden¬ 
tifier.  An  identifier  so  qualified  is  said  to  be  uniquely  qualified.  In  the  limit,  if  all  identifiers 
not  bound  to  *UNBOUND*  were  distinct,  then  no  qualification  (an  empty  suffix)  would 
be  necessary  to  distinguish  them.  Given  a  TSE,  it  is  possible  to  determine  the  minimum 
path  suflSx  necessary  to  distinguish  uniquely  each  identifier  instance;  this  is  done  in  our 
implementation  of  Stage  2  VHDL. 

Descriptors 

The  denotable  values  to  which  identifiers  are  bound  in  the  component  environments  of  a 
TSE  are  called  descriptors. 

A  descriptor  contains  several  fields  of  information,  each  of  which  holds  an  attribute  of  the 
identifier  instance  to  which  the  descriptor  is  bound  in  a  given  TSE  component  environment. 
The  number  of  fields  in  a  descriptor  depends  on  the  attributes  of  its  associated  identifier, 
but  each  descriptor  always  has  fields  that  contain  the  identifier  to  which  it  is  bound,  the 
identifier  instance’s  statically  uniquely  qualified  name  (see  Section  8.2.1),  and  a  tag  that 
identifies  the  kind  of  descriptor  (and  hence  its  remaining  fields). 

Descriptors  for  Stage  2  VHDL  are  discussed  in  detail  in  Section  6.2. 

Tree-Structured  Environment  Access 

Certain  non-*UNBOUND’'‘  (i.e.,  denotable)  values  of  an  identifier  id  in  (t,p)  can  be 
accessed  by  the  functions  lookup  and  lookup-local.  These  functions  are  given  later  in  the 
context  of  semantics  equations  in  which  they  are  used. 

Tree-Structured  Environment  Modification 

A  TSE’s  component  environments  can  be  modified  (in  particular,  descriptors  can  be  bound 
to  unbound  identifiers  or  existing  descriptors  can  be  modified)  via  a  function  built  into 
DENOTE.  This  function,  enter,  is  used  extensively  in  the  DENOTE  description  of  the 
Stage  2  VHDL  translator.  enter(t)(p)(id)(d),  where  t  is  a  TSE,  p  a  path  in  t,  id  an 
identifier,  and  d  a  partial  descriptor  (containing  all  its  fields  except  the  identifier  field), 
yields  a  TSE  that  is  the  same  as  t  except  that  its  component  environment  t(p)  is  replaced 
by  the  environment 

t(p)[dVid],  where  if  d  =  (qid,  tag,  . . .  ),  then  d’  =  (id,  qid,  tag,  . . .  ). 
Tree-Structured  Environment  Extension 

One  can  add  additional  component  environments  to  a  TSE  by  extending  it.  If  t  is  a  TSE, 
p  a  path  in  t,  and  elbl  an  edge  label,  and  if  %(p)(elbl)  is  not  a  path  in  t,  then  ex- 
tend(t)(p)(elbl)  denotes  the  TSE  that  is  the  same  as  t  except  that 
(extend(t)(p)(elbl))(%(p)(elbl))  =  rO.  Thus  one  can  extend  t  along  one  of  its  paths  p 
by  adding  a  legally  labeled  edge  onto  the  end  of  p  and  placing  a  node  that  is  the  empty 
environment  rO  at  the  end  of  that  extended  path  %(p)(elbl). 
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4.2  Continuations 


Continuations  are  a  technical  device  for  capturing  the  semantics  of  transfers  of  control, 
whether  they  be  explicit  (gotos,  returns  from  procedures  and  functions)  or  implicit  (normal 
sequential  flow  of  control  to  the  next  program  element,  abnormal  termination  of  program 
execution).  Continuations  are  functions  intended  to  map  the  “normal”  result  of  a  semantic 
function  to  some  ultimate  “final  answer”  [some  final  value(s)  or  an  error  message].  If  the 
semantic  function  does  not  produce  a  normal  result,  its  continuation  can  be  ignored  and 
some  “abnormal”  final  answer  (such  as  an  error  message)  can  be  produced  instead. 

For  example,  in  the  first  phase  of  our  formal  description  of  the  Stage  2  VHDL  translator,  a 
continuation  supplied  to  a  semantic  function  that  elaborates  declarations  normally  maps  a 
new  “translation  state”  to  a  final  answer,  but  if  a  declaration  illegally  duplicates  or  conflicts 
with  an  existing  definition,  then  the  continuation  is  ignored  and  an  error  message  (such  as 
DUPLICATE-DECLARATION)  is  the  resulting  final  answer. 

The  initiation  of  the  second  phase  of  our  formal  description  of  the  Stage  2  VHDL  translator 
assumes  that  the  program  has  first  “passed”  the  first  phase  without  error.  In  fact,  the 
second  phase  is  used  as  the  continuation  for  the  first. 


4.3  Other  Notation  and  Functions 

Fairly  standard  lambda  notation  (see  [11])  is  used  in  this  report,  except  that  structured 
arguments  are  permitted  in  lambda-abstractions.  Lambda-abstractions  normally  have  the 
form  Ax.body,  where  body  is  a  lambda-term  and  x  may  be  free  in  body.  The  term 
Ax.Ay.body  is  printed  as  Ax,y.body.  If  x  is,  for  example,  a  pair,  then  the  components  of 
X  can  be  represented  in  body  by  the  application  of  projection  functions  to  x.  Instead,  the 
individual  components  of  x  can  be  bound  to  variables  y  and  z  that  appear  free  in  body 
(instead  of  projection  functions  applied  to  x)  by  using  the  abstraction  A(y,z).body  .  This 
is  defined  if  and  only  if  the  value  of  x  is  indeed  a  pair.  This  notation  will  be  used  only  when 
its  result  is  defined. 

A  list  is  represented  in  the  usual  way:  (x,y,z).  Standard  Lisp  functions  are  used,  but  they 
are  curried,  as  in  cons(x)(y)  and  append(x)(y).  If  x  is  a  nonempty  sequence  (list),  then 
hd(x)  denotes  its  first  element  and  tl(x)  the  sequence  (list)  of  its  remaining  components; 
X  =  cons(hd(x))(tl(x)). 

Some  general-purpose  functions  are  second,  third,  fourth,  fifth,  sixth,  and  last,  which 
return  the  second,  third,  fourth,  fifth,  sixth,  and  last  elements,  respectively,  of  a  list.  Ad¬ 
ditionally,  we  have  rest,  which  returns  a  list  consisting  of  the  first  n  —  1  elements  of  an 
n-element  list,  and  length,  which  returns  the  integer  length  of  a  list. 

second(x)  =  hd(tl(x)) 

third(x)  =  hd(tl(tl(x))) 

fourth(x)  =  hd(tl(tl(tl(x)))) 

fiftli(x)  =  hd(tl(tl(tl(tl(x))))) 
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sixth(x)  =  hd(tl(tl(tl(tl(tl(x)))))) 
last(id‘'*)  =  (null(tl(id'^))^  hd(id'*’),  last (tl(id **■))) 
rest(id'^)  =  (niill(tl(id'‘' ))— ►  e,  cons(hd(id+),rest(tl(id'‘')))) 
lengtli(x)  =  (nxill(x)— 0,  l+lengtli(tl(x))) 
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5  Syntax  of  Stage  2  VHDL 


Three  Stage  2  VHDL  syntaxes  are  used  by  the  translator:  a  concrete  syntax,  which  is 
SLR(l)  and  is  used  for  parsing  Stage  2  VHDL  hardware  descriptions;  and  two  abstract 
syntaxes,  which  are  used,  respectively,  in  Phases  1  and  2  of  the  semantic  definition.  The 
concrete  syntax  is  intended  to  be  the  “reference”  grammar  for  the  Stage  2  VHDL  language 
subset. 

In  all  three  syntaxes  the  syntactic  constructs  are  the  members  of  syntactic  domains,  which 
are  of  two  kinds:  primitive  and  compound.  The  primitive  syntactic  domains  are  given. 
The  compound  syntactic  domains  are  functions  of  the  primitive  domains;  these  functional 
dependencies  are  expressed  as  a  set  of  syntax  equations  represented  as  productions  of  a 
context-free  grammar.  Terminals  and  nonterminals  of  this  grammar  range,  respectively, 
over  the  primitive  and  compound  syntactic  domains.  Only  those  syntactic  domains  of  the 
abstract  syntax  that  actually  appear  in  a  semantic  equation  will  be  given  explicit  names; 
other  syntactic  domains  will  be  unnamed,  as  these  names  are  not  used  in  the  specification. 

The  terminal  classes  are:  identifiers,  unsigned  decimal  numerals,  bit  literals,  character 
literals,  bitstrings  (binary,  octal,  and  hexadecimal),  and  strings.  The  remaining  terminal 
symbols  serve  as  reserved  words. 

The  concrete  syntax  of  Stage  2  VHDL,  being  SLR(l),  is  unambiguous.  The  abstract  syn¬ 
taxes  are  considerably  smaller  than  the  concrete  syntax,  because  they  are  not  concerned  with 
providing  a  parsable  representation  of  Stage  2  VHDL,  but  rather  simply  provide  the  min¬ 
imum  syntactic  information  necessary  for  a  syntax-directed  semantic  specification.  Their 
use  yields  a  more  compact  formal  definition. 

The  translation  of  a  hardware  description  (from  concrete  syntax)  to  its  abstract  syntax 
representation  is  accomphshed  by  semantic  action  routines  in  the  Stage  2  VHDL  parser. 
This  process  is  straightforward,  and  a  formal  specification  of  how  the  Phase  1  abstract 
syntax  is  derived  from  the  concrete  syntax  is  omitted  from  this  report.  It  is  felt  that  the 
correspondence  between  the  concrete  and  Phase  I  syntaxes  is  so  close  that  no  such  formal 
specification  is  needed.  The  derivation  of  Phase  2  syntactic  objects  from  corresponding 
Phase  1  syntactic  objects  is  expUcit  in  the  specification  of  the  interphase  abstract  syntax 
tree  transformation;  see  Section  7. 

There  are  some  minor  variations  between  the  concrete  and  abstract  syntaxes  of  Stage  2 
VHDL.  For  example,  in  the  concrete  syntax,  labels  for  PROCESS  statements  and  loops  (LOOP, 
WHILE,  FOR  statements)  are  optional.  It  was  found,  however,  that  the  semantics  of  Stage 
2  VHDL  requires  that  every  process  and  loop  have  a  label.  Thus  in  the  abstract  syntaxes 
(which  drive  the  semantics),  process  and  loop  labels  are  required.  This  is  enforced  by 
having  the  parser  and  the  constructor  of  the  Phase  1  abstract  syntax  tree  supply  a  distinct 
system-generated  label  for  each  unnamed  process  and  loop.  These  labels  are  taken  from  a 
primitive  syntactic  domain  SysId  of  system-generated  identifiers,  disjoint  from  the  primitive 
syntactic  domain  Id  of  identifiers.  Similarly,  anonymous  array  types  are  given  distinct 
system-generated  names. 

The  following  subsections  present  the  syntactic  domains  and  equations  for  Stage  2  VHDL. 
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5*1  Syntactic  Domains 
Primitive  Syntactic  Domains 


id  :  Id 
Sysid 

bit  :  BitLit 
constant  :  NumLit 
char  :  CharLit 

bitstring,  octstring,  hexstring  :  BitStr 
string  :  Str 

Compound  Syntactic  Domains 


identifiers 

system-generated  identifiers  (disjoint  from  Id) 
bit  literals 

numeric  literals  (unsigned  decimal  numerals) 
character  literals 
bit  string  literals 
string  literals 


design-file  :  Design 
ent-decl  :  Ent 
arch-body  :  Arch 
port-decl  :  PDec 

decl,  pkg-decl,  pkg-body,  use-clause 

con-stat  :  CStat 

seq-stat  :  SStat 

case-alt  :  Alt 

discrete-range  :  Drg 

waveform  :  Wave 

transaction  :  Trans 

expr  :  Expr 

ref  :  Ref 

unary-op  :  Uop 

binary-op  :  Bop 

relational-op  :  Bop 


design  files 
entity  specifications 
architecture  body  specifications 
port  declarations 
:  Dec  declarations 

concurrent  statements 
sequential  statements 
case  alternatives 
discrete  ranges 
waveforms 
transactions 
expressions 
references 
unary  operators 
binary  operators 
relational  operators 


5.2  Syntax  Equations 
5.2.1  Concrete  Syntax 

The  concrete  syntax  for  Stage  2  VHDL  is  shown  below. 

The  productions  are  numbered  for  reference  purposes.  The  first  production  and  the  nonter¬ 
minal  ♦♦start**  are  inserted  by  the  SLR(l)  grammar  analyzer  to  facilitate  SLR(l)  parsing, 
and  the  (terminal)  symbol  *E*  denotes  the  beginning  or  end  of  a  file.  Terminal  symbols 
appear  in  upper  case  letters,  while  nonterminal  symbols  and  pseudo-terminals  (terminals 
denoting  a  set  of  values)  are  in  lower  case;  pseudo-terminals  are  prefixed  by  a  “dot”  (.). 

One  slight  deviation  from  official  VHDL  syntax,  necessitated  by  idiosyncracies  of  the  Stage 
2  VHDL  parser,  is  that  we  need  to  use  the  single  reserved  word  PACKAGEBODY  instead  of  the 
pair  of  reserved  words  PACKAGE  BODY.  This  anomaly  will  be  corrected  in  future  releases  of 
SDVS. 
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STAGE  2  VHDL  CONCRETE  SYNTAX 


1  *ilcgt.aT-h** 

;  :=  *£*  design-file  ♦£* 

2  design-file 

::=  DESIGN^FILE  .id  IS  init  pkg-decl-list  use-clause-list 
ent-decl  arch-body 

3  init 


4  pkg-decl-list 

5  I  pkg-decl-list  pkg-decl 

6  pkg-decl 

:  :=  PACKAGE  .id  IS  pkg-decl-part  END  opt-id  ; 

7  pkg-decl-part 

pkg-decl- item-list 

8  pkg-decl-item-list 

9  I  pkg-decl-item-list  pkg-decl-item 

10  pkg-decl-item 

::=  const -decl 

11  I  sig-decl 

12  I  t3rpe-decl 

13  use-clause-list 

14  I  use-clause-list  use-clause 

15  use-clause 

USE  dotted-name-list  ; 

16  dotted-name-list 

dotted-name 

17  I  dotted-name-list  ,  dotted-name 

18  ent-decl 

ENTITY  .id  IS  ent -header  END  opt-id  ; 

19  ent -header 

:  opt -port- clause 

20  opt-port-clause 

21  I  port-clause 

22  opt-id 

23  I  . id 
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24  arch-body 

::=  ARCHITECTURE  .id  OF  .id  IS  decl-part  BEGIN 
con-stats  END  opt -id  ; 

25  port-clause 

:  :=  PORT  (  port-list  )  ; 

26  port -list 

: :=  interface-list 

27  interface-list 

: :=  interf ace-sig-decl 

28  I  interface-list  ;  interf ace-sig-decl 

29  interf ace-sig-decl 

: :=  opt-signal  id-list  :  opt-mode  type-mark  opt-init 

30  I  opt-signal  id-list  :  opt-mode  slice-name  opt-init 

31  opt-signal 

32  I  SIGNAL 

33  id-list 

.id 

34  I  id-list  ,  . id 

35  opt-mode 

36  I  mode 

37  mode 

::=  IN 

38  I  OUT 

39  I  INOUT 

40  I  BUFFER 

41  t3rpe“iaark 

dotted-name 

42  dotted-name 

::=  .id 

43  I  dotted-name  .  .id 

44  slice-name 

;:=  type-mark  (  discrete-range  ) 

45  discrete-range 

: : =  range 

46  range 

; ;=  simple-expr  direction  simple-expr 

47  opt-init 

48  1  : =  erpr 
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49  direction 

::=  TO 

50  I  DOVNTO 

51  decl-part 

::=  decl-item-list 

52  decl- item-list 

53  I  decl- item-list  decl-item 

54  decl-item 

object-decl 

55  I  type-decl 

56  I  subprog-decl 

57  I  subprog-body 

58  I  use-cla\ise 

59  object-decl 

const -decl 

60  I  var-decl 

61  I  sig-decl 

62  const-decl 

::=  CONSTANT  id-list  :  type-mark  :=  expr 

63  I  CONSTANT  id-list  :  slice-name  :=  expr 

64  var-decl 

VARIABLE  id-list  :  type-mark  opt-init 

65  I  VARIABLE  id-list  :  slice-name  opt-init 

66  sig-decl 

::=  SIGNAL  id-list  :  type-mark  opt-init  ; 

67  I  SIGNAL  id-list  :  slice-name  opt-init 

68  type-decl 

:  :=  emim-t3rpe“decl 

69  I  array-type-decl 

70  enim-type-decl 

:  :=  TYPE  .id  IS  ennm-type-def  ; 

71  enum-t3rpe-def 

: (  id-list  ) 

72  I  (  char-list  ) 

73  char-list 

:  ;=  character-literal 

74  I  char-list  ,  character-literal 

75  array-type-decl 

::=  TYPE  .id  IS  array-t3rpe-def  ; 

76  array-type-def 

;  :=  ARRAY  (  discrete-range  )  OF  type-mark 
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77  subprog-decl 

: : =  subprog-spec  ; 

78  subprog-spec 

: :  =  PROCEDURE  .  id  opt-procedure-f onaal-part 

79  I  FUNCTION  .id  opt-function-formal-part  RETURN  type-iark 

80  subprog-body 

subprog-spec  IS  decl-part  BEGIN  seq-stats  END  opt-id 

t 

81  opt -procedure-formal -part 

82  I  (  procedure-par- spec-list  ) 

83  opt-f unct ion-formal -part 

84  I  (  function-par-spec-list  ) 

85  procedure-par-spec-list 

:  :=  procedure-par-spec 

86  I  procedure-par-spec-list  ;  procedure-par-spec 

87  function-par-spec-list 

:  :=  function-par-spec 

88  I  fimct  ion-par-spec -list  ;  function-par-spec 

89  procedure-par-spec 

::=  object-class  id-list  :  procedure-par-mode  t3rpe-mark 

90  fimct  ion-par-spec 

object-class  id-list  :  fimct ion-par-mode  type-mark 

91  objcct-class 

CONSTANT 

92  I  VARIABLE 

93  I  SIGNAL 

94  procedure-par-mode 

95  I  IN 

96  I  OUT 

97  I  INOUT 

98  fimct  ion-par-mode 

99  I  IN 

100  con-stats 

101  I  con-stats  con-stat 

102  con-stat 

::=  process-stat 

103  I  concurrent-sig-assn-stat 
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104  process-stat 

opt -unit-label  PROCESS  decl-part  BEGIN  seq-stats  END 
PROCESS  opt-id  ; 

105  I  opt-unit-label  PROCESS  (  sensitivity-list  )  decl-part 

BEGIN  seq-stats  END  PROCESS  opt-id  ; 

106  opt-unit-label 

107  I  .id  : 

108  concurrent-sig-assn-stat 

::=  selected-sig-assn-stat 

109  I  conditional-sig-assn-stat 

110  selected-sig-assn-stat 

:  :=  opt-unit-label  WITH  expr  SELECT  target  <= 

opt -transport  selected-waveforms  ; 

111  selected-wavef orms 

::=  selected-waveform 

112  I  selected-wavef  orms  ,  selected-waveform 

113  selected-waveform 

:  waveform  WHEN  choices 

114  conditional-sig-assn-stat 

:  :=  target  <=  opt -transport  conditional -waveforms  waveform 
> 

115  I  .id  :  target  <=  opt -transport  conditional-waveforms 

waveform  ; 

116  conditional- waveforms 

117  1  conditional-waveforms  conditional- waveform 

118  conditional-wavef  orm 

:  :=  waveform  WHEN  expr  ELSE 

119  seq-stats 

120  I  seq-stats  seq-stat 


121 

seq-stat 

:  :=  null-stat 

122 

1 

var-assn-stat 

123 

1 

sig-assn-stat 

124 

1 

if -St  at 

125 

1 

case-stat 

126 

1 

loop-stat 

127 

1 

exit-stat 

128 

1 

retum-stat 

129 

1 

proc-call-stat 

130 

1 

wait -St at 
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131 


null -St at 

NULL  ; 

132  var-assn-stat 

: :=  name  :=  expr  ; 

133  sig-assn-stat 

::=  target  <=  opt -transport  waveform  ; 

134  opt -transport 

135  I  TRANSPORT 

136  waveform 

wavef orm-elt-list 

137  wavef orm-elt-list 

::=  wavef orm-elt 

138  I  wavef  orm-elt-list  ,  wavef  orm-elt 

139  waveform-elt 

: :  =  expr 

140  I  expr  AFTER  expr 

141  if -St at 

::=  if-head  if -tail 

142  if-head 

::=  IF  expr  THEN  seq-stats 

143  I  if-head  ELSIF  expr  THEN  seq-stats 

144  if-tail 

END  IF  ; 

145  I  ELSE  seq-stats  END  IF  ; 

146  case-stat 

: :  =  CASE  expr  IS  case-alt-list  END  CASE 

147  case-alt-list 

: :=  case-alt 

148  I  case-other-alt 

149  I  case-alt  case-alt-list 

150  case-alt 

: VHEN  choices  =>  seq-stats 

151  case -other-alt 

VHEN  OTHERS  =>  seq-stats 

152  choices 

:  :=  choice 

153  I  choices  |  choice 
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154  choice 

;:=  simple-expr 

155  I  discrete-range 

156  loop-stat 

::=  opt-unit-label  LOOP  seq-stats  END  LOOP  opt-id  ; 

157  I  opt -unit-label  WHILE  expr  LOOP  seq-stats  END  LOOP 

opt-id  ; 

158  I  opt-unit-label  FOR  name  IN  discrete-range  LOOP 

seq-stats  END  LOOP  opt-id  ; 

159  exit -St at 

::=  EXIT  opt -dotted-name  opt-when-cond  ; 

160  opt-dotted-name 

161  I  dotted-name 

162  opt-when-cond 

163  I  WHEN  expr 

164  retum-stat 

RETURN  ; 

165  I  RETURN  expr  ; 

166  proc-cadl-stat 

: : =  name  ; 

167  wait-stat 

::=  WAIT  opt-sensitivity-clause  opt -condition-clause 
opt-timeout-clause  ; 

168  opt-sensitivity-clause 

169  I  sensitivity-clause 

170  sensitivity-clause 

:  :=  ON  sensitivity-list 


171 

sens it ivit y-list 

name-list 

172 

name-list 

:  name 

173 

1  name-list  , 

174 

opt  -  c  ondit  ion-clause 

175  I  condition-clause 

176  condition-clause 

: : =  UNTIL  expr 
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177  opt-timeout-clause 

178  I  timeout -clause 

179  time out -clause 


FOR 

expr 

180 

expr-list 

;  :=  eipr 

181 

1  expr- 

-list  ,  expr 

182 

expr 

rel 

183 

1  rel 

and-expr 

184 

1  rel 

nemd-expr 

185 

1  rel 

or-expr 

186 

1  rel 

nor-expr 

187 

1  rel 

xor-expr 

188  rel 

simple-expr 

189  I  simple-expr  relop  simple-expr 

190  and-expr 

:  :=  and-part 

191  I  and-part  and-expr 

192  and-part 

AND  rel 

193  nand-expr 

: :  =  nand-part 

194  1  nand-part  nand-expr 

195  nand-part 

::=  NAND  rel 

196  or-expr 

: : =  or-part 

197  I  or-part  or-expr 


198  or-part 

::=  OR  rel 


199  nor-expr 

:  :=  nor-part 

200  I  nor-part  nor-expr 

201  nor-part 

:  NOR  rel 

202  xor-expr 

:  :=  xor-part 

203  I  xor-part  xor-expr 
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204 


xor-part 

; :  =  XOR  rel 

205  simple-ezpr 

::=  simple-ezprl 

206  I  +  simple-exprl 

207  I  -  simple-exprl 

208  simple-exprl 

:  :=  term 

209  I  simple-exprl  addop  term 

210  term 

: :=  factor 

211  I  term  mulop  factor 

212  factor 

213  I 

214  I 

215  I 

216  primary 

217  I 

218  I 

219  I 

220  literal 

: :  =  boolean-litered 

221  I  bit-literal 

222  I  character-literal 

223  I  numeric-literal 

224  I  time-literal 

225  I  bitstring-literal 

226  I  string-literal 

227  boolean-literal 

::=  FALSE 

228  I  TRUE 

229  bit-literal 

.bit 

230  character-literal 

: :  =  .  char 

231  numeric-literal 

.constant 

232  time-literal 

opt -time- const  ant  time-unit 

233  opt -time-const  ant 

234  I  .  constant 


literal 

aggregate 

name 

(  expr  ) 


primary 

primary  **  primary 
ABS  primary 
NOT  primary 
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235 

time -unit 

::=  FS 

236 

1  PS 

237 

1  NS 

238 

1  US 

239 

1  MS 

240 

1  SEC 

241 

1  MIN 

242 

1  HR 

243 

bit string-literal 
::=  .bitstring 

244 

1  . octstring 

245 

1  .heistring 

246 

string-literal 
: :  =  .  string 

247 

aggregate 

::=  (  2-expr-list  ) 

248 

2-eipr-list 

: :=  expr  ,  eipr 

249 

1  2-eipr-list  ,  expr 

250 

target 

:  :=  neune 

251 

name 

namel 

252 

namel 

selector 

253 

1  namel  .  selector 

254 

1  namel  (  expr-list 

255 

selector 

.id 

256 

relop 

257 

1  /= 

258 

1  < 

259 

I  <= 

260 

1  > 

261 

1  >= 

262 

addop 
:  :=  + 

263 

1  - 

264 

1  ft 

265 

mulop 
:  :=  * 

266 

1  / 

267 

1  MOD 

268 

1  REM 
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5.2.2  Abstract  Syntax:  Phase  1 

The  abstract  syntax  of  Stage  2  VHDL  used  during  Phase  1  translation  is  shown  below. 

The  superscript  denotes  Kleene  Closure  (e.g.  ‘‘decl*’’  denotes  zero  or  more  occurrences 
of  the  syntactic  object  “decl”),  and  a  superscript  denotes  one  or  more  occurrences.  In 
a  syntactic  clause,  subscripts  denote  (possibly)  different  objects  of  the  same  class. 

As  in  the  concrete  syntax,  terminal  symbols  appear  in  upper  case,  while  all  other  symbols 
are  either  nonterminals  or  pseudo-terminals  (id,  bitlit,  and  constant). 

STAGE  2  VHDL  ABSTRACT  SYNTAX:  PHASE  1 

design-file  DESIGN-FILE  id  pkg-decl*  pkg-body*  use-clause*  ent-decl  arch-body 

pkg-decl  ::=  PACKAGE  id  decl*  opt-id 

pkg-body  PACKAGEBODY  id  decl*  opt-id 

use-clause  ::=  USE  dotted-name^" 
dotted-name  id"*" 

ent-decl  : :=  ENTITY  id  port-decl*  decl*  opt-id 

arch-body  ARCHITECTURE  idi  id2  decl*  con-stat*  opt-id 

port-decl  :  :=  DEC  PORT  id"*"  mode  type-mairk  opt-expr 

I  SLCDEC  PORT  id"^  mode  slice-name  opt-expr 

mode  IN  I  OUT  I  INOUT  |  BUFFER 

type-mark  ::=  dotted-name 

slice-name  type-mark  discrete-range 

discrete-range  :  :=  direction  expri  expr2 
direction  TO  |  DOWNTO 

arch-body  ARCHITECTURE  idi  id2  decl*  con-stat*  opt-id 

decl  ::=  object-decl 
I  type-decl 
I  pkg-decl 
I  pkg-body 
I  subprog-decl 
I  subprog-body 
I  use-clause 
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object-decl 


::=  DEC  object-class  id"*"  type-mark  opt-expr 

I  SLCDEC  object-class  id*^  slice-name  opt-expr 

object-class  : CONST  |  VAR  I  SIG 

type-decl  :  :=  eniun-type-decl 
I  array-type-decl 

enum-type-decl  : :  =  ETDEC  id  id"*" 

array-type-decl  ::=  ATDEC  id  discrete-range  type-mark 
subprog-decl  : :=  subprog-spec 

subprog-spec  : :=  PROCEDURE  id  proc-par-spec*  type-mark 
I  FUNCTION  id  func-par-spec*  type-mark 

proc-par-spec  ::=  object-class  id"^  proc-par-mode  type-mark  opt-expr 
func-par-spec  ::=  object-class  id"*"  func-peir-mode  type-mark  opt-expr 

proc-par-mode  ::=  IN  |  OUT  |  INOUT 
func-par-mode  IN 

subprog-body  ::=  SUBPROGBODY  subprog-spec  decl*  seq-staf^  opt-id 

con-stat  ::^=  process-stat 

I  selected-sig-assn-stat 
I  conditional-sig-assn-stat 

process-stat  : :=  PROCESS  id  ref*  decl*  seq-stat*  opt-id 

selected-sig-assn-stat  ::=  SEL-SIGASSN  delay-type  id  expr  ref  selected-waveform"^ 
selected-waveform  SEL-WAVE  waveform  discrete-range*^ 

conditional-sig-assn-stat  COND-SIGASSN  delay-type  id  ref  cond-waveform*  waveform 
cond-wavef orm  : : =  COND-WAVE  waveform  expr 

seq-stat  null-stat 

I  var-assn-stat 
I  sig-assn-stat 
I  if-stat 
I  case-stat 
I  loop-stat 
I  while-stat 
I  for-stat 


null-stat 


I  exit-stat 
I  call-stat 
I  retum-stat 
I  wait-stat 

::=  NULL 


var-assn-stat  : :=  VARASSN  ref  expr 

sig-assn-stat  ::=  SIGASSN  delay-type  ref  waveform 

delay-type  : :=  INERTIAL  |  TRANSPORT 

waveform  :  :=  HAVE  transact  ion"*" 
transaction  ;:=  TRANS  expr  opt-expr 

if-stat  ::=  IF  cond-part+  else-part 
cond-part  ::=  expr  seq-stat* 
else-part  ::=  seq-stat* 

case-stat  ::=  CASE  expr  case-aLlt+ 

case-alt  ::=  CASECHOICE  discrete-range+  seq-stat* 

I  CASEOTHERS  seq-stat* 

loop-stat  : :=  LOOP  id  seq-stat*  opt-id 

while-stat  ::=  WHILE  id  expr  seq-stat*  opt-id 

for-stat  ::=  FOR  id  ref  discrete-range  seq-stat*  opt-id 

exit-stat  ::=  EXIT  opt-dotted-name  opt-expr 

call-stat  ::=  CALL  ref 

retum-stat  ::=  RETURN  opt-expr 

wait-stat  WAIT  ref*  opt-expri  opt-expra 

expr  : : =  € 

I  bool-lit 
I  bit-lit 
I  num-lit 
I  time-lit 
I  char-lit 
I  bitstr-lit 
I  str-lit 
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I  ref 

I  positional-aggregate 
I  unary-op  expr 
I  binary-op  expri  expr2 
I  relational-op  expri  expr2 

bool-lit  ::=  FALSE  |  TRUE 

bit-lit  : :=  BIT  bitlit 

num-lit  : : =  NUM  constant 

time-lit  ::=  TIME  constant  time-unit 

char-lit  ::=  CHAR  constant 

bitstr-lit  ::=  BITSTR  bit-lit* 

str-lit  ::=  STR  char-lit* 

ref  : : =  REF  name 

name  : : =  id 

I  name  id 
I  name  expr* 

positional-aggregate  :  ;=  PAGGR  expr* 

unary-op  ::=  NOT  |  PLUS  |  NEG  |  ABS 

binary-op  ::=  AND  |  NAND  |  OR  |  NOR  |  XOR 

I  ADD  I  SUB  I  MUL  I  DIV  |  MOD  |  REM  |  EXP 
I  CONCAT 

relational-op  : :=  EQ  I  NE  |  LT  I  LE  |  GT  |  GE 
time-unit  : :=  FS  |  PS  |  NS  |  US  |  MS  |  SEC  |  MIN  |  HR 
opt-id  ::=  e  |  id 

opt-dotted-name  ::=  e  |  dotted-name 
opt -expr  ::=  €  |  expr 
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5.2.3  Abstract  Syntax:  Phase  2 


The  abstract  syntax  of  Stage  2  VHDL  used  during  Phase  2  translation  differs  in  certain 
respects  from  that  employed  by  Phase  1,  at  exactly  those  points  indicated  below. 

The  abstract  syntax  transformation  occurs  at  the  very  end  of  Phase  1,  and  just  prior  to  the 
invocation  of  Phase  2,  as  described  in  Section  7. 


STAGE  2  VHDL  ABSTRACT  SYNTAX:  PHASE  2 

ent-decl  ::=  ENTITY  id  decl*i  decl*2  opt-id 
con-stat  ::=  process-stat 

process-stat  PROCESS  id  decl*  seq-stat*  opt-id 

expr  : :=  c 

I  bool-lit 
I  bit-lit 
I  num-lit 
I  time-lit 
I  char-lit 
I  enum-lit 
I  bitstr-lit 
I  str-lit 
I  ref 

I  positional-aggregate 
I  unary-op  expr 
I  binary-op  expri  expr2 
I  relational-op  expri  expr2 

time-lit  : :=  TIME  constant  FS 

enum-lit  : : =  ENUMLIT  id 

ref  ::=  REF  modifier"*" 

modifier  ::=  SREF  id"*"  id 
I  INDEX  expr 
I  SELECTOR  id 
I  PARLIST  expr* 

unary-op  ::=  NOT  I  BNOT  |  PLUS  I  NEC  |  ABS  |  RNEG  |  RABS 
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bineiry-op 


::=  AND  |  NAND  |  OR  |  NOR  |  XOR 

I  BAND  I  BNAND  |  BOR  |  BNOR  I  BXOR 

I  ADD  I  SUB  I  MUL  |  DIV  |  HOD  |  REM  |  EXP 

I  RPLUS  I  RHINUS  I  RTIMES  I  RDIV  I  REXPT 

I  CONCAT 

relational-op  : :=  EQ  |  NE  |  LT  I  LE  I  GT  |  GE 
I  RLT  I  RLE  I  RGT  |  RGE 
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6  Phase  1:  Static  Semantic  Analysis  and  Environment  Col¬ 
lection 

Now  that  the  necessary  background  has  been  established,  we  are  ready  to  examine  the 
formal  description  of  the  Stage  2  VHDL  translator. 

In  this  section,  an  overview  of  Phase  1  and  its  relation  to  Phase  2  will  be  presented,  followed 
by  detailed  discussions  of  the  environment  manipulated  by  the  translator  and  the  Phase  1 
semantic  domains  and  function  types,  and  finally  the  Phase  1  semantic  equations  themselves. 


6.1  Overview 

A  Stage  2  VHDL  hardware  description  is  first  parsed  according  to  the  Stage  2  VHDL 
concrete  grammar,  producing  an  abstract  syntax  tree  that  serves  as  the  input  to  Phase  1 
translation. 

Phase  1  of  the  translation  accomplishes  the  following. 


•  Performs  static  semantic  checks  to  verify  that  certain  conditions  are  met,  including: 

—  Objects,  subprograms,  packages,  and  process  and  loop  labels  must  be  declared 
prior  to  use. 

—  Identifiers  with  the  same  name  cannot  be  declared  in  the  same  local  context. 

—  References  to  objects  and  labels  must  be  proper,  e.g.  scalar  objects  must  not 
be  indexed,  array  references  must  have  the  correct  number  of  indices,  and  EXIT 
statements  must  reference  a  loop  label. 

-  All  components  of  statements  and  expressions  must  have  the  proper  type,  e.g. 
expressions  used  as  conditions  must  be  boolean,  array  indices  must  be  of  the 
proper  type,  operators  must  receive  operands  of  the  correct  type,  procedure  and 
function  calls  must  receive  actual  parameters  of  the  proper  type,  function  calls 
must  return  a  result  of  a  type  appropriate  for  their  use  in  an  expression. 

—  Sensitivity  lists  in  PROCESS  and  WAIT  statements  must  contain  signal  identifiers. 

—  The  collection  of  discrete  ranges  defining  a  CASE  statement  alternative  must  be 
exhaustive  and  mutually  exclusive. 

—  The  time  delays  in  the  AFTER  clause  of  a  signal  assignment  statement  must  be 
increasing. 

•  Creates  a  new  abstract  syntax  tree  —  a  transformed  version  of  the  original  abstract 
syntax  tree  (used  by  Phase  1)  —  that  will  be  more  conveniently  utihzed  by  Phase  2 
of  the  translation. 

•  Creates  and  manipulates  a  tree-structured  environment  (TSE)  that,  in  the  absence  of 
errors,  is  provided  to  Phase  2  of  the  translation. 
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If  the  VHDL  translator  completes  Phase  1  without  error,  then  it  can  proceed  with  Phase 
2,  state  delta  generation.  Phase  2  requires  two  inputs:  the  transformed  abstract  syntax 
tree  and  the  tree-structured  environment  for  the  hardware  description,  both  constructed  by 
Phase  1. 

The  tree-structured  environment  contains  a  complete  record  of  the  name/attribute  associ¬ 
ations  corresponding  to  the  hardware  description’s  declarations,  and  its  structure  reflects 
that  of  the  description.  Referring  to  this  TSE,  Phase  2  incrementally  generates  and  (per 
user  proof  commands)  applies  state  deltas  via  symbolic  execution  and  the  theories  built 
into  the  Simplifier. 


6.2  Descriptors,  Types,  and  Type  Modes 

When  a  declaration  of  an  identifier  is  processed  by  Phase  1,  that  identifier  is  bound  in 
the  TSE  to  a  descriptor.,  a  structured  object  that  contains  the  attributes  of  the  identifier 
instance  associated  to  it  by  that  declaration. 

At  the  time  a  descriptor  is  created  and  entered  into  the  TSE,  its  qid  field  is  set  to  c. 
The  value  of  the  qid  field  is  eventually  set  to  the  proper  statically  uniquely  qualified  name 
(SUQN),  when  such  a  qualified  name  makes  sense;  see  Section  8.2.1.  These  updates  to  the 
qid  fields  become  possible  only  once  the  TSE  is  fuUy  constructed,  i.e.,  at  the  very  end  of 
Phase  1  —  or  in  other  words,  at  the  very  beginning  of  Phase  2,  the  phase  in  which  these 
uniquely  qualified  names  are  needed. 

Eight  kinds  of  descriptor  are  used  in  Phase  1:  object,  package,  process  name,  loop  name, 
function,  procedure,  enumeration  type  element,  and  type.  Their  structures  are  as  follows: 


object  : 


<  id,  qid,  tag,  path,  exported,  type,  value,  process  > 


The  id  field  contains  the  identifier  to  which  this  descriptor  is  bound,  and  the  qid 
field  contains  its  statically  uniquely  qualified  name  (SUQN).  The  tag  field  contains 
*OBJECT*.  The  path  field  contains  the  path  in  the  tree-structured  environment  to 
the  component  environment  in  which  this  instance  of  the  identifier  is  bound.  The  ex¬ 
ported  field  indicates  whether  the  definition  of  this  identifier  instance  can  be  exported 
to  other  environments.  A  value  true  (represented  by  DENOTE  symbol  tt)  indicates 
exportation  is  permitted,  and  a  value  false  (represented  by  DENOTE  symbol  ff) 
indicates  that  it  is  not.  This  becomes  an  issue  when  the  declaration  whose  elabora¬ 
tion  created  this  descriptor  was  contained  in  a  package  specification  (exportable)  or 
package  body  (not  exportable). 

If  the  identifier  id  represents  a  constant  initialized  via  a  static  expression,  then  the 
value  field  contains  the  initial  value;  otherwise  it  contains  *UNDEF*  (undefined). 
Array  and  record  references  never  represent  static  values  in  VHDL,  so  the  value  field 
of  corresponding  object  descriptors  contains  *UNDEF*. 

If  the  identifier  id  represents  a  signal,  then  the  label  of  the  first  PROCESS  statement 
in  which  id  is  the  target  of  a  signal  assignment  is  entered  into  the  process  field,  to 
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enable  the  detection  of  assignments  to  the  signal  by  multiple  processes  (disallowed  in 
Stage  2  VHDL). 

Finally,  the  object  descriptor’s  type  field  contains  the  type  of  the  identifier,  repre¬ 
sented  by  a  pair  <  tmode,tdesc  >: 

•  tmode  is  the  type  mode,  itself  a  pair; 
normally, 

tmode  =  <object-class,  ref-mode>, 
where  object-class  G  {CONST,  VAR,  SIG} 
and  ref-mode  €  {VAL,REF,  OUT}. 

The  tmode  indicates,  first,  whether  the  object  is  a  constant  (object-class  = 
CONST),  variable  (object-class  =  VAR),  or  signal  (object-class  =  SIG), 
and  second,  whether  the  object  is  read-only  (ref- mode  =  VAL),  read- write 
(ref-mode  =  REF),  or  write-only  (ref-mode  =  OUT). 

For  technical  purposes,  it  is  also  occasionally  convenient  for  Phase  1  transla¬ 
tion  to  manipulate  “dummy”  type  modes  of  the  form  <  DUMMY,  VAL  >, 

<  DUMMY,  OBJ  >,  <  DUMMY,  ACC  >,  <  DUMMY,  AGR  >,  and 

<  DUMMY,  TYP  >,  as  weU  as  “path”  type  modes  of  the  form  <  PATH,  p  > 
where  p  is  a  path  in  the  TSE. 

•  tdesc  is  the  type  descriptor  (see  below).  It  gives  the  object’s  basic  type,  irre¬ 
spective  of  the  type  mode. 

To  introduce  a  bit  more  terminology,  a  type  in  which  the  ref- mode  is  REF  or  OUT 
wiU  be  called  a  reference  type,  while  one  whose  ref-mode  is  VAL  wiU  be  called  a 
value  type.  A  reference  type  indicates  that  the  associated  object  can  have  its  value 
altered  (by  an  assignment,  say),  as  opposed  to  a  value  type. 

Finally,  the  type  descriptor  d  =  tdesc  is  the  basic  type  of  the  type  <  tmode,  tdesc  > 
of  which  it  is  the  second  component. 

package  : 

<  id,  qid,  ^PACKAGE*,  path,  exported,  pbody  > 

The  id,  qid,  path,  and  exported  fields  are  as  above.  The  tag  field  contains  ’•‘PACK¬ 
AGE*.  If  this  package  has  a  body,  the  pbody  field  contains  the  transformed  abstract 
syntax  tree  of  the  package  body;  otherwise  it  contains  e. 

process  name  : 

<  id,qid,=i=PROCESSNAME*,path  > 

The  id  and  path  fields  are  as  above.  The  tag  field  contains  *PROCESSNAME* 
(the  process  label).  The  qid  field  has  no  relevance  here,  and  contains  e. 

loop  name  : 

<  id,  qid,  *LOOPNAME*,  path  > 

The  id,  qid,  and  path  fields  are  as  in  a  process  name.  The  tag  field  contains  *LOOP- 
NAME*  (the  loop  label). 
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function  : 


<  id,  qid,  ♦FUNCTION*,  path,  exported,  signatures,  body, characterizations  > 

The  id,  qid,  exported,  and  path  fields  are  as  above.  The  tag  field  contains  *FUNC- 
TION*. 

The  signatures  field  contains  a  list  of  signatures,  that  is,  <  pars,rtype  >  pairs;  this 
list  will  be  a  singleton  unless  the  function  is  overloaded.  The  pars  field  of  a  signature 
is  a  list  that  indicates  the  names  and  types  of  the  function’s  formal  parameters.  Each 
list  element  is  a  pair,  whose  first  component  is  the  identifier  that  denotes  the  formal 
parameter’s  name  and  whose  second  component  is  its  type.  The  rtype  (result  type) 
field  of  a  signature  contains  the  type  of  the  function’s  residt  for  these  particular 
parameter  types;  this  type  is  always  a  value  type. 

The  body  field  of  a  function  descriptor  contains  the  transformed  abstract  syntax 
tree  of  the  function’s  body  (including  its  local  declarations)  if  a  body  exists,  and  e 
otherwise.  The  characterizations  field  of  a  function  descriptor  always  contains  e 
(see  procedure  descriptors  for  a  description  of  this  field). 

procedure  : 

<  id,  qid,  ♦PROCEDURE*,  path,  exported,  signatures,  body,  characterizations  > 

The  id,  qid,  path,  exported,  signatures,  body,  and  characterizations  fields  are 
as  in  the  function  descriptor.  The  tag  field  contains  ^PROCEDURE*  (procedure). 
Since  procedures  return  no  result,  all  rtype  fields  in  each  signature  contain  the  void 
standard  value  type  (see  below). 

The  characterizations  field  of  a  procedure  descriptor,  unlike  that  of  a  function 
descriptor,  is  potentially  nonempty.  One  of  either  the  body  or  the  characterizations 
must  contain  c;  either  a  procedure  has  a  body  that  may  be  symbolically  executed,  or 
it  has  been  characterized  by  a  set  of  state  deltas.  In  fact,  Stage  2  VHDL  does  not  yet 
support  offline  characterizations  for  procedures  ([16],  [17]),  but  we  expect  that  this 
facility  will  be  incorporated  in  Stage  3  VHDL. 

A  characterization  is  a  6-tuple  containing  the  following  information: 

•  the  path  to  the  procedure; 

•  the  identifier  that  names  the  procedure; 

•  a  list  of  the  identifiers  that  name  the  arguments  to  the  procedure; 

•  a  (possibly  empty)  precondition  that  determines  under  which  conditions  this 
characterization  may  be  used; 

•  a  modification  list  of  the  names  of  variables  changed  by  this  procedure;  and 

•  a  postcondition  that  states  the  effects  of  the  procedure. 

The  last  three  items  in  the  tuple  must  be  given  in  SDVS  internal  state  delta  notation, 
as  they  form  the  basis  for  a  state  delta  that  characterizes  the  actions  of  the  procedure. 
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enumeration  type  element  : 


<  id,  qid,  +ENUMELT*,  path,  exported, type  > 

The  id  field  contains  the  name  of  an  enumeration  type  element,  the  tag  field  is 
*ENUMELT*,  and  the  type  field  contains  the  descriptor  of  the  enumeration  type. 

type  : 

There  are  four  kinds  of  type  descriptor;  those  for  standard  types,  enumeration  types, 
array  types,  and  record  types.  Although  record  types  are  not  actually  incorporated  in 
the  Stage  2  VHDL  language  subset,  the  Stage  2  VHDL  translator  contains  support 
for  their  eventual  implementation  in  Stage  3  VHDL. 

Each  type  descriptor  has  an  id  field  (containing  the  name  of  that  t3q)e),  a  correspond¬ 
ing  qid  field,  a  tag  field  (indicating  the  kind  of  type  descriptor),  path  and  exported 
fields  (that  serve  the  usual  purpose),  and  additional  fields  that  contain  information 
appropriate  to  the  type  represented  by  the  descriptor.  The  detailed  structures  of  the 
type  descriptors  are  as  follows: 

standard  type  : 

<  id,  qid,  tag,  path,  exported  > 

Standard  types  are  those  considered  to  be  predeclared;  they  are  always  ex¬ 
portable.  In  Stage  2  VHDL,  the  standard  types  are  boolean,  bit,  integer,  real, 
time,  character,  bitjoector,  and  string;  they  cannot  be  redeclared. 

The  id  and  tag  fields  denote  the  following  Stage  2  VHDL  standard  types: 


id  =  BOOLEAN, 

tag  =  *BOOL* 

id  =  BIT, 

tag  =  *BIT* 

id  =  INTEGER, 

tag  =  *INT* 

id  =  REAL, 

tag  =  *REAL* 

id  =  TIME, 

tag  =  *TIME* 

id  =  BIT_VECTOR, 

tag  =  *ARRAYTYPE* 

id  =  STRING, 

tag  =  *ARRAYTYPE* 

For  completeness,  we  also  provide  a  void  and  a  polymorphic  standard  type  for 
Stage  2  VHDL: 

id  =  VOID,  tag  =  *VOID* 

id  =  POLY,  tag  =  *POLY* 
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enumeration  type  : 


<  id,  qid,*ENUMTYPE*,  path,  exported,  literals  > 

The  literals  field  is  a  nonempty  list  of  identifiers  giving  the  enumeration  literals 
(in  order)  for  this  type.  Both  characters  and  identifiers  are  admissible  enumera¬ 
tion  literals  in  Stage  2  VHDL. 

array  type  : 

<  id,  qid,  * ARRAYTYPE+,  path,  exported,  direction,  lb,  ub,  elty  > 

Every  array  type  has  a  name;  unique  names  are  generated  for  anonymous  array 
types.  Arrays  in  Stage  2  VHDL  are  one-dimensional,  of  INTEGER  index  type. 
The  direction  field  contains  either  TO  or  DOWNTO,  indicating  whether  the 
indices  of  the  array  increase  or  decrease,  respectively.  The  lb  and  ub  fields 
contain,  respectively,  abstract  syntax  trees  for  expressions  that  denote  the  array 
type’s  lower  and  upper  bounds.  The  elty  (element  type)  field  contains  the  de¬ 
scriptor  of  the  type  of  the  array’s  elements.  The  values  of  the  array’s  lower  and 
upper  bounds  are  not  necessarily  static;  therefore,  array  bounds-checking  gen¬ 
erally  cannot  be  performed  in  Phase  1,  but  must  be  deferred  to  Phase  2  (“run 
time”),  when  state  deltas  are  applied  (“executed”). 

record  type  : 

<  id,  qid,  +RECORDTYPE+,  path,  exported,  components  > 

The  components  field  is  a  nonempty  list  of  triplets;  each  triplet  represents  a 
field  of  this  record  type.  The  first  element  of  each  triplet  is  an  identifier  that 
is  this  field’s  name.  The  second  element  is  a  descriptor  representing  this  field’s 
basic  type.  The  third  element  either  is  empty  or  contains  an  abstract  syntax 
tree  for  Phase  2  initialization  for  components  of  objects  declared  to  be  of  this 
record  type.  As  noted  above,  records  are  not  implemented  as  part  of  Stage  2 
VHDL,  and  record  types  are  included  simply  in  preparation  for  the  anticipated 
implementation  of  records  in  Stage  3  VHDL. 

Constant  functions  returning  type  descriptors  are: 
bool-type-desc()  =  <BOOLEAN  ,e  *BOOL’^  .(STANDARD)  ,tt> 
bit-type-desc()  =  <BIT  ,e  *BIT*  .(STANDARD)  .tt> 
int-type-desc()  =  <INTEGER  .e.*INT*  .(STANDARD)  .tt> 
real-type-desc()  =  <REAL  .e.*REAL*  .(STANDARD)  .tt> 
time-type-desc()  =  <TIME  .e.*TIME*  .(STANDARD)  .tt> 
void-type-desc()  =  <VOID  .e.*VOID*  .(STANDARD)  .tt> 
poly-type-desc()  =  <POLY  .e.*POLY*  .(STANDARD)  .tt> 
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The  function  char-type-desc  looks  up  the  descriptor  for  standard  type  CHARACTER 
which  Phase  1  will  have  entered  in  the  t((STANDARD))  component  environment  of  the 
TSE  t: 

chax-type-desc(t)  =  t((STANDARD)  )(CHARACTER  ) 

In  addition,  the  following  function  accepts  arguments  to  create  an  appropriate  array  type: 

array-type-desc(aj:ray-name,qid, path, exported, direction, lower-bound, upper-bound, element-type) 

=  <array-name,qid,*ARRAYTYPE*  , path, exported, direction, lower-bound, upper-bound, element-type> 

In  particular,  the  BIT-VECTOR  and  STRING  standard  types  are  created  by  calls  to 
array-type-desc: 

bitvector-type-desc() 

=  axray-type-desc(BIT_VECTOR  )(e)((STANDARD)  )(tt)(TO  )((NUM  0)  )(£)(bit-type-desc()) 
string-type-desc(t) 

=  array- type-desc(STRING  )(e)( (STANDARD)  )(tt)(TO  )((NUM  1)  )(e)(char-type-desc(t)) 

Predicates  are  available  for  distinguishing  specific  types  and  type  descriptors: 
is-boolean?(type)  =  is-boolean-tdesc?(tdesc(type)) 
is-boolean-tdesc?(d)  =  idf(d)=  BOOLEAN 

i&-bit?(type)  =  is-bit-tdesc?(tdesc(type)) 
is-bit-tdesc?(d)  =  idf(d)=  BIT 

is-integer?(type)  =  is-integer-tdesc?(tdesc(type)) 
is-integer-tdesc?{d)  =  idf(d)=  INTEGER 

is-real?(type)  =  is-real-tdesc?(tdesc(type)) 
is-real-tdesc?(d)  =  idf(d)=  REAL 

is- time?  (type)  =  is-time-tdesc?(tdesc(type)) 
is-time-tdesc?(d)  =  idf(d)=  TIME 

is- void?  (type)  =  is-void-tdesc?(tdesc(type)) 
is-void-tdesc?(d)  =  idf(d)=  VOID 
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is-poly?(type)  =  is-poly-tdesc?(tdesc(type)) 


is-poly-tdesc?(d)  =  idf(d)=  POLY 


is-chara,cter?(type)  =  is-chaiacter-tdesc?(tdesc(type)) 

is-character-tdesc?(d)  =  idf(d)=  CHARACTER 

is- array?  (type)  =  is-array-tdesc?(tdesc(type)) 
is-array-tdesc?(d)  =  tag(d)=  *ARRAYTYPE* 

iS“record?(type)  =  is-record-tdesc?(tdesc(type)) 
is-record-tdesc?(d)  =  tag(d)=  *RECORDTYPE* 


is- bit  vector?  (type)  =  is-bitvector-tdesc?(tdesc(type)) 

is-bit  vector-tdesc?  (d) 

=  let  idf  =  idf(d)  in 

idf  =  BIT-VECTOR  V  (consp(idf)A  hd(idf)=  BIT-VECTOR  ) 


is-striiig?(type)  =  is-strmg-tdesc?(tdesc(type)) 

is-string-tdesc?  (d) 

=  let  idf  =  idf(d)  in 

idf  =  STRING  V  (consp(idf)A  hd(idf)=  STRING  ) 


is-const?(type)  =  object-class(tmode(type))=  CONST 


is-var?(type)  =  object-class(tmode(type))=:  VAR 


is-sig?(type)  =  object-clciss(tmode(type))=  SIG 


Certain  primitive  functions  can  be  applied  to  descriptors.  For  each  kind  of  descriptor  and 
field  there  exists  an  access  function,  ordinarily  with  the  same  name  as  the  field  (the  only 
exception  being  idf  instead  of  id).  When  applied  to  a  descriptor  of  the  proper  kind,  the 
access  function  extracts  the  contents  of  that  descriptor’s  corresponding  field.  For  example, 
if  d  is  an  object  descriptor,  then  tag(d)  =  *OBJECT*. 

If  d  is  any  descriptor,  then  the  fuUy  qualified  name  of  the  corresponding  identifier  instance 
is  returned  by  function  namef: 

namef(d)  =  $(  path  (d))  (idf (d)) 
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Defined  below  axe  the  descriptor  component  access  functions,  a  few  related  constructor  and 
access  functions,  and  some  convenient  additional  predicates. 

idf(d)  =  lid(d) 

qid(d)  =  hd(tl(d)) 

tag(d)  =  lid(tl(tl(d))) 

patli(d)  =  lid(tl(tl(tl(d)))) 

exported(d)  =  hd(tl(tl(tl(tl(d))))) 

type{d)  =  hd(tl(tl(tl(tl(tl(d)))))) 

value(d)  =  lid(tl(tl(tl(tl(tl(tl(d))))))) 

process(d)  =  hd(tl(tl(tl(tl(tl(tl(tl(d) ))))))) 

pbody(d)  =  hd(tl(tl(tl(tl(tl(d)))))) 

signatures(d)  =  hd(tl(tl(tl(tl(tl(d)))))) 

body(d)  =  hd(tl(tl(tl(tl(tl(tl(d))))))) 

characteiizations(d)  =  hd(tl(tl(tl(tl(tl(tl(tl(d)))))))) 

directioii(d)  =  hd(tl(tl(tl(tl(tl(d)))))) 

lb(d)  =  bd(tl(tl(tl(tl(tl(tl(d))))))) 

ub(d)  =  hd(tl(tl(tl(tl(tl(tl(tl(d)))))))) 

elty(d)  =  hd(tl(tl(tl(tl(tl(tl(tl(tl(d))))))))) 

components  (d)  =  hd(tl(ti(tl(tl(tl(d)))))) 

Hterals(d)  =  hd(tl(tl(tl(tl(tl(d)))))) 


pars(signature)  =  hd(signature) 
rtype(signature)  =  hd(tl(signatnre)) 


mk-type(tmode)(tdesc)  =  (tmode,tdesc) 
tmode(type)  =  hd(type) 
tdesc(type)  =  hd(tl(type)) 

mk-tmode(object-class)  (ref-mode)  =  (object-clciss,  ref-mode) 
object-class(tmode)  =  hd(tmode) 
ref-mode  (tmode)  =  hd(tl(tmode)) 

is-const?(type)  =  object-class  (tmode(type))=  CONST 
is-var?(type)  =  object-dass(tmode(type))=  VAR 
is-sig?(type)  =  object-class(tmode(type))=  SIG 


is-readable?(type)  =  ref-mode(tmode(type))E  (VAL  REF) 
is-writable?(type)  =  ref-mode(  tmode  (type)  )€  (REF  OUT) 

is-ref?(expr)  =  hd(expr)=  REF 
is-paggr?(expr)  =  hd(expr)=  PAGGR 

is-unary-op?(op)  =  op  €  (NOT  PLUS  NEG  ABS) 
is-binary-op?  (op) 

=  op  €  (AND  NAND  OR  NOR  XOR  ADD  SUB  MUL  DIV  MOD  REM  EXP  CONCAT) 
is-relational-op?(op)  =  op  6  (EQ  NE  LT  LE  GT  GE) 
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6.3  Special-Purpose  Environment  Components  and  Functions 

Certain  component  environments  r  of  the  tree-structured  environment  (TSE)  part  of  the 
translation  state  have  special  identifier-like  names  that  are  bound  to  values  specific  to  that 
environment’s  associated  program  unit  (design  file,  package,  entity,  architecture,  process, 
procedure,  function,  or  loop); 

♦UNIT*  : 

r(*UNIT*)  contains  a  tag  that  identifies  what  kind  of  program  unit  led  to  the  cre¬ 
ation  of  r.  These  tags  are  *DESIGN-FILE*  (design  file),  *PACK AGE*  (package), 
♦ENTITY*  (entity),  *ARCHITECTURE*  (architecture),  *PROCESS*  (pro¬ 
cess),  *PROCEDURE*  (procedure),  *FUNCTION*  (function),  and  *LOOP* 
(loop).  These  tags  are  used  to  locate  the  innermost  instance  of  a  specific  kind  of 
environment  (such  as  one  associated  with  a  process)  on  the  current  lookup  path  in 
the  TSE. 

♦LAB*  : 

When  the  tag  of  r(*UNIT*)  is  *  ARCHITECTURE*,  the  value  bound  to  r(*LAB*) 
contains  an  identifier  list  of  all  the  process  labels  declared  in  the  program  unit.  When 
the  tag  of  r(*UNIT*)  is  *PROCESS*,  *PROCEDURE*,  *FUNCTION*,  or 
♦LOOP*,  the  value  bound  to  r(*LAB*)  contains  an  identifier  list  of  all  the  loop 
labels  declared  in  the  program  unit.  These  lists  are  used  to  ensure  that  the  identifiers 
serving  as  process  and  loop  labels  are  distinct  in  (the  top-level  scope  of)  each  program 
unit. 

♦USED*  ; 

The  environment  corresponding  to  any  program  unit  admitting  USE  clauses  in  its 
declarative  part  has  a  *USED*  component.  In  this  case,  r(*USED*)  is  a  list  repre¬ 
senting  the  set  of  fully  qualified  names  of  packages  named  in  USE  clauses  appearing  in 
that  declarative  part,  omitting  the  qualified  names  of  packages  that  textually  enclose 
those  USE  clauses.  In  order  to  ensure  that  the  TSE  used  in  Phase  2  of  the  Stage  2 
VHDL  translator  can  remain  fixed  as  that  generated  by  Pha.se  1,  a  slight  restriction 
is  imposed  on  the  concrete  syntax  of  Stage  2  VHDL.  This  restriction  requires  that 
all  of  the  USE  clauses  in  a  declarative  part  appear  only  at  the  end  of  that  declarative 
part.  This  will  be  discussed  more  fully  later. 

♦IMPT*  : 

Whenever  a  program  unit  has  a  *USED*  component,  it  also  has  a  *IMPT*  com¬ 
ponent.  r(*IMPT*)  is  a  list  of  the  fully  qualified  names  of  those  items  that  can  be 
imported  into  the  program  unit’s  environment  by  the  elaboration  of  the  USE  clauses 
in  its  declarative  part.  Consequently,  no  two  of  these  fuUy  qualified  names  can  have 
the  same  last  identifier  (unqualified  name),  nor  can  the  last  identifier  of  any  of  these 
fully  qualified  names  be  the  same  as  an  identifier  whose  (local)  declaration  appears  in 
this  program  unit’s  declarative  part. 

♦SENS*  : 

When  the  tag  of  r(*UNIT*)  is  *PROCESS*,  the  value  bound  to  r(*SENS*)  con- 
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tains  a  list  of  the  transformed  abstract  syntax  trees  of  the  refs  appearing  in  that  pro¬ 
cess’  sensitivity  list.  Phase  1  translation  of  a  WAIT  statement  occurring  in  a  PROCESS 
statement  checks  to  make  sure  this  *SENS*  list  is  empty;  otherwise,  the  WAIT  occurs 
illegally  in  a  process  with  a  sensitivity  list. 


Special  Phase  1  Functions 

Three  special-purpose  Phase  1  functions  defined  by  SDVS  are  set-difFerence,  new-array- 
type-name,  and  delete-duplicates;  these  are  provided  by  SDVS  because  of  the  difficulty 
of  writing  their  definitions  in  the  DENOTE  language  (DL). 

Function  set-diflference  returns  the  set  difference  of  two  fists.  Function  new-array- 
type-name  returns  a  new  unique  name  for  an  anonymous  array  type.  Function  delete- 
duplicates  destructively  deletes  duplicate  items  from  a  fist. 

Error  Reporting 

Phase  1  errors  are  reported  by  three  SDVS  functions:  error,  which  takes  a  string- valued  er¬ 
ror  message;  error-pp,  which  takes  a  string-valued  error  message  and  an  additional  VHDL 
abstract  syntax  subtree  to  be  pretty-printed;  and  cat,  which  makes  a  string  from  its  (vari¬ 
able  number  of)  arguments,  each  of  which  is  made  into  a  string. 


6.4  Phase  1  Semantic  Domains  and  Functions 

The  formal  description  of  Phase  1  translation  consists  of  semantic  domains  and  semantic 
functions,  the  latter  being  functions  from  syntactic  to  semantic  domains.  Compound  se¬ 
mantic  domains  are  defined  in  terms  of  primitive  semantic  domains.  Similarly,  primitive 
semantic  functions  are  unspecified  (their  definitions  being  understood  implicitly)  and  the 
remaining  semantic  functions  are  defined  (by  syntactic  cases)  via  semantic  equations. 

The  principal  Phase  1  semantic  functions  (and  corresponding  Stage  2  VHDL  language 
constructs  for  which  they  perform  static  analysis)  are:  DFT  (design  files),  ENT  (entity 
declarations),  ART  (architecture  bodies),  PDT  (port  declarations),  DT  (declarations), 
CST  (concurrent  statements),  SLT  (sensitivity  fists),  SST  (sequential  statements),  AT 
(case  alternatives),  DRT  (discrete  ranges),  WT  (waveforms),  TRT  (transactions),  ET 
and  RT  (expressions),  OTl  (unary  operators),  OT2  (binary  and  relational  operators),  B 
(bit  literals),  and  N  (numeric  literals). 

Each  of  the  principal  semantic  functions  requires  an  appropriate  syntactic  argument  —  an 
abstract  syntactic  object  (tree)  generated  by  the  Stage  2  VHDL  language  parser.  Most  of 
the  semantic  functions  take  (at  least)  the  following  additional  arguments: 


•  a  path,  indicating  the  currently  visible  portion  of  the  (partially  constructed)  tree- 
structured  environment; 

•  a  continuation,  specifying  which  Phase  1  semantic  function  to  invoke  next;  and 
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•  a  (partially  constructed)  TSE,  containing  the  information  gathered  from  declarations 
previously  elaborated  and  checked. 


In  the  absence  of  errors,  the  Phase  1  semantic  functions  update  the  TSE.  Moreover,  ET 

and  RT  also  construct  a  pair  consisting  of  an  expression’s  type  and  its  static  value.  The 

tjpe  is  eitkr  a  nk  Iff  or  a  rcjeitncc  Ifpc;  see  Secfa  U,  Oilj  an  expression  with  a 

reference  type  may  be  the  target  of  an  assignment  operation. 

An  expression’s  static  value  is  *UNDEF*  (^‘undefined”)  unless  it  is  a  static  expression,  in 
which  case  its  static  value  is  determined  as  follows.  A  static  expression  is: 

•  a  boolean,  bit,  numeric,  or  character  literal:  the  static  value  is  the  value  of  the 
corresponding  constant; 

•  an  identifier  explicitly  declared  as  a  scalar  constant  and  initialized  by  a  static  expres¬ 
sion:  the  static  value  is  the  static  value  of  the  initialization  expression; 

•  an  operator  applied  to  operands  that  are  static  expressions:  the  static  value  is  deter¬ 
mined  by  the  semantics  of  the  operator  and  the  static  value  of  the  operands; 

•  a  static  expression  enclosed  in  parentheses:  the  static  value  is  the  static  value  of  the 
enclosed  static  expression. 

Note  that  a  subscripted  array  reference,  even  if  the  subscript  is  a  static  expression  and  the 
array  was  declared  as  a  constant  initialized  with  a  list  of  static  expressions,  is  not  a  static 
expression.  (The  same  is  true  for  a  selected  record  component.) 

Figures  1  and  2  depict,  respectively,  the  semantic  domains  and  function  types  for  Phase  1 
of  the  Stage  2  VHDL  translator. 
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Primitive  Semantic  Domains 


Bool  =  {FALSE,  TRUE} 

Bit  =  {0,  1} 

Char  =  {(CHAR  0),  . . (CHAR  127)} 
n:N  ={0,1,2,...} 

id  :  Id 
Sysid 

t  ;  TEnv 
d  :  Desc 

sd  .  SD 
Assert 

Error 

Compound  Semantic  Domains 

elbl  :  Elbl  =  Id  +  Sysid 

p,  q:  Path  =  Elbl* 

qname:  Name  =  Elbl  (.  Elbl)* 

d  :  Dv  =  Desc 

r  :  Env  =  Id  ^  (Dv  +  {*UNBOUND*}) 


boolean  constants 
bit  constants 

character  constants  (ASCII- 128  representations) 
numeric  constants  (natural  numbers) 

identifiers 

system-generated  identifiers  (disjoint  from  Id) 

tree-structured  environments  (TSEs) 
descriptors  (see  Section  6.2) 

state  deltas 

SDVS  Simplifier  assertions 
error  messages 


TSE  edge  labels 
TSE  paths 
qualified  names 

denotable  values  (descriptors) 
environments 


Tmode  =  {PATH}  x  Id*  +  type  modes 

({CONST,  VAR,  SIG,  DUMMY}  x 
{VAL,  OUT,  REF,  OBJ,  ACC,  TYP}) 


w  :  Type  =  Tmode  x  Desc  types 

e  :  Value  values 

h  :  CSet  =  P(Bool)  +  P(Char)  -f  P/(N)  case  selection  sets  [P(«)  denotes  “powerset  of” 
+  {INT}  +  {ENUM}  and  P/(«)  denotes  “set  of  finite  subsets  of”] 

u  :  TDc  =  TEnv  — s-  Ans  declaration  &  concurrent  statement  continuations 

c  :  TSc  =  TDc  sequential  statement  continuations 

k  :  TEc  =  (Type  x  Value)  — >  TSc  expression  continuations 

y  :  TAc  =  CSet  ^  TSc  case  alternative  continuations 

V  :  TTc  =  Type  — »•  Ans  type  continuations 

z  :  Desc  — >  TDc  descriptor  continuations 

Ans  =  (SD  -t-  Assert)*  -|-  Error  final  answers 

Figure  1:  Phase  1  Semantic  Domains 


47 


DFT  : 

ENT  : 
ART  : 

PDT  : 
DT  : 

CST  : 
SLT  : 

SST  : 

AT  : 
DRT  ; 

WT  : 
TRT  : 

ET  : 
RT  : 
OTl  : 
OT2  : 

B  : 

N  : 


Design  — v  Ans 

Ent  ^  Path  — TDc  — TDc 
Arch  —>■  Path  — TDc  ^  TDc 

PDec*  — >  Path  — »•  Bool  TDc  ^  TDc 
Dec*  — >  Path  Bool  — TDc  — ^  TDc 

CStat*  — >  Path  — >  TDc  TDc 
Ref*  — >  Path  TDc  TDc 

SStat*  Path  ^  TSc  ^  TSc 

Alt*  Type  — ^  Path  — »  TAc  TSc 
Drg  Type  — Path  TAc  — >  TSc 

Wave  Path  — TEc  TSc 

Trans*  — >  Path  — *■  TEc  — TSc 

Expr  Path  — >  TEc  TSc 

Expr  Path  TEc  ^  TSc 

Uop  — »•  TEc  — >  TEc 

Bop  TEc  (Type  x  Value)  — »■  TEc 

BitLit  — >  Bit 
NumLit  N 


design  file  static  semantics 

entity  declaration  static  semantics 
architecture  body  static  semantics 

port  declaration  static  semantics 
declaration  static  semantics 

concurrent  statement  static  semantics 
sensitivity  list  static  semantics 

sequential  statement  static  semantics 

case  alternative  static  semantics 
discrete  range  static  semantics 

waveform  static  semantics 
transaction  static  semantics 

expression  static  semantics 

expression  static  semantics 

unary  operator  static  semantics 

binary,  relational  operator  static  semantics 

bit  values  of  bit  literals  (primitive) 
integer  values  of  numeric  literals  (primitive) 


Figure  2:  Phase  1  Semantic  Functions 
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6.5  Phase  1  Semantic  Equations 
6.5.1  Stage  2  VHDL  Design  Files 

(DFTl)  DFT  [[  DESIGN-FILE  id  pkg-decr  plcg-body*^  use-clause'^  ent-decl  arch-body  J 
=  let  to  =  mk-iiiitial-tse() 

and  po  =  %(e)(id)  in 
let  idi  =  hd(tl(ent-decl))  in 
let  ti  =  enter-standard(to) 
and  Pi  =  %(po)(idi)  in 
let  t2  =  enter 

(ti)(e)(id) 

(<e  *DESIGN-FILE*  ,e,tt, 

((e,(VAL  ,void-type-desc() ))),£,£>)  in 

let  t3  =  enter(extend(t2)(e)(id))(po)(*UNIT*  )(<£  *DESIGN-FILE*  >)  in 
let  t4  =  enter (t3)(po)(*LAB*  )(<e,e>)  in 
let  ts  =  enter(t4)(po)(*USED*  )(<£,£>)  in 
let  te  =  enter(t5)(po)(*IMPT*  )(<£,£,£>)  in 
let  use-clause  =  (USE  , ((STANDARD  ,ALL  )))  in 
DT  I  use-clause  |  (£)(tt)(ui)(t6) 
where  ui  =  At.DT  |[  pkg-decl*  |  (po)(tt)(u2)(t) 
where  U2  =  At.DT  Jpkg-body*  ]  (po)(tt)(u3)(t) 
where  U3  =  At.DT  [[use-clause*  J  (po)(tt)(u4)(t) 
where  U4  =  At. ENT  [[ent-decl  ]  (po)(u5)(t) 
where  us  =  At. ART  [[  arch-body  |  (pi)(u6)(t) 
where 

U6  =  At.let  unit  =  DFX  [[  design-hle  |  (t)  in 
phase2(unit)(t) 

enter-standard  (t) 

=  let  ti  =  enter-package(t)(£)  (STANDARD  )  in 
let  t2  =  enter-package(ti)(£)(TEXTIO  )  in 
let  ts  =  enter(t2)(e)(*USED*  )(<£,£>)  in 
let  t4  =  enter(t3)(£)(*IMPT*  )(<£,e,e>)  in 
let  ts  =  enter-predelined(t4)( (STANDARD)  )  in 
ts 


enter-package(t )  (p)  (id) 

=  let  Pi  =  %(p)(id)  in 

let  package-desc  =  <e,*PACKAGE*  ,p,tt,e>  in 
let  ti  =  enter(t)(p)  (id)  (package-desc)  in 
let  t2  =enter(extend(ti)(p)(id))(pi)(*UNIT*)(<£*PACKAGE*>)  in 
let  ts  =  enter(t2)(pi)(*USED*  )(<£,£>)  in 
let  t4  =  enter(t3)(pi)(*IMPT*  )(<e,e,e>)  in 
t4 


enter-predefined  (t)  (p) 

=  let  ti  =  enter(t)(p) (BOOLEAN  )(tl(bool-type-desc()))  in 
let  t2  =  enter(ti)(p)(BIT  )(tl(bit-type-desc()))  in 
let  ts  =  enter(t2)(p) (INTEGER  )(tl(int-type-desc()))  in 
let  t4  =  enter(t3)(p)(REAL  )(tl(real-type-desc()))  in 
let  ts  =  enter(t4)(p)(TIME  )(tl(tinie-type-desc()))  in 
let  te  =  enter(t5)(p)(VOID  )(tl(void-type-desc()))  in 
let  t?  =  enter(t6)(p)(POLY  )(tl(poly-type-descQ))  in 
let  ts  =  enter(t7)(p)  (BIT-VECTOR  )(tl(bit vector- type-desc()))  in 
let  tg  =  enter-characters(t8)(p)  in 
let  tiO  =  enter-string(t9)(p)  in 
tiO 
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enter“Chaxacters(t)(p) 

=  let  id"^  =  gen-characters(0)(127)  in 

let  field- valuesi  =  <£,*ENUMTYPE*  ,p,tt,id‘^>  in 
let  char-type-desc  =  cons(CHARACTER  ,field-valuesi )  in 
let  field-values2  =  <£,*ENUMELT*  ,p,tt,mk-type((CONST  VAL)  )(char-type-desc)>  in 
enter-objects(id'*' )  (field- values2 )  (t)  (p)  (u) 

where  u  =  Mi.enter(ti)(p)(CHARACTER  )(fiel(l-valuesi) 


enter-string(t)  (p) 

=  let  expr  =  (NUM  1)  in 

let  string-type-desc  =  array-type-desc 

(STRING  )(e)(p)(tt)(TO  )(second(EX  [[  expr  1  (p)(t)))(£) 
(char-type“desc(t))  in 
enter(t)(p)  (STRIN G  )  (tl(string-type-desc)) 


gen-characters(start)  (finish) 

=  (start  =  finish  ((CHAR  , finish)), 

cons((CHAR  , start), gen-characters(start+l)(finish))) 


enter“Objects(id*)  (field- values)  (t)(p)(u) 

=  (null(id*)’-f  u(t), 
let  id  =  hd(id*)  in 

(t(p)(id)^  ^UNBOUND*  — *■  error(cat( “Duplicate  object  declaration:  ”)($(p) 

(id))). 

let  ti  =  enter(t)(p)  (id) (field- values)  in 
enter-ob  jects(tl(id  * ) )  (field- values)  (ti )  (p)  (u) ) ) 


6.5.2  Entity  Declarations 

(ENTl)  ENT  I  ENTITY  id  port-ded*  decl*  opt-id  ]  (p)(u)(t) 

=  (->null(opt-id)A  opt-id  ^  id 
— ►  error 

(cat (“Entity  declaration  ”)(id) 

(“  ended  with  incorrect  identifier:  ”)(opt-id)), 
let  ti  =  enter(t)(p)(id)(<c,*ENTITY*  ,c,fF>)  in 
let  Pi  =  %(p)(id)  in 

let  t2  =  enter(extend(ti)(p)(id))(pi)(*UNIT*  )(<£, ♦ENTITY*  >)  in 
let  ta  =  enter(t2)(pi)(*LAB*  )(<£,£>)  in 
let  t4  =  enter(t3)(pi)(*USED*  )(<£,£>)  in 
let  ts  =  enter(t4)(pi)(*IMPT*  )(<£,£:,£>)  in 
PDT  |[ port-ded*  J  (pi)(tt)(ui)(t5) 
where  ui  =  At.DT  [[  ded*  J  (pi)(tt)(u)(t)) 


6.5.3  Architecture  Bodies 

(ARTl)  ART  [  ARCHITECTURE  idi  id2  ded*  con-stat*  opt-id  |  (p)(u)(t) 
=  (->null(opt-id)A  opt-id  ^  idi 
— ►  error 

(cat (“Architecture  body  ”)(idi) 

(“  ended  with  incorrect  identifier  ”) (opt-id)), 
let  d  =  lookup(t)(p)(id2)  in 
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(d  =  ^UNBOUND’^  V  tag(d)7^  ^ENTITY* 

— ►  error(cat(“No  entity  ”)(id2)(“  for  architecture  body  ’’)(idi)), 
let  Pi  =%(p)(idi)  in 

let  ti  =  enter(t)(p)(idi)(<e  *ARCHITECTURE*  ,p,fF>)  in 
let  t2  =enter(exteiid(ti)(p)(idi))(pi)(*UNIT*)(<e*ARCHITECTURE*  >)  in 
let  t3  =  enter(t2)(pi)(*LAB*  )(<e,e>)  in 
let  t4  =  enter(t3)(pi)(*USED*  )(<e,e>)  in 
let  ts  =  eiiter(t4)(pi)(*IMPT*  )(<£,e,e>)  in 
DTl[decl*l(pa)(tt)(ui)(t5) 
where  ui  =  Ate.CST  [  con-stat*  |  (pi)(u)(t6))) 


6*5*4  Port  Declarations 

(PDTO)  PDT  1 5  1  (p)(vis)(u)(t)  =  u(t) 

(PDTl)  PDT  [[  port-ded  port-decr  |  (p)(vis)(u)(t) 

=  PDT  [[  port-decl  J  (p)(vis)(ui)(t) 

where  ui  =  At.PDT  |port-decP  |  (p)(vis)(u)(t) 


The  elaboration  and  checking  of  a  sequence  of  port  declarations  proceeds  from  the  first  to 
the  last  declaration  in  the  sequence. 

(PDT2)  PDT  [[  DEC  PORT  id"^  mode  type-maxk  opt-expr  J  (p)(vis)(u)(t) 

=  lookup-type(type-mark)  (p)  (z)  (t) 
where 

z  =  Ad.let  type  =  (case  mode 

IN  mk-type((SIG  VAL)  )(d), 

OUT  mk-type((SIG  OUT)  )(d), 

(INOUT  , BUFFER  )  ^  mk-type((SIG  REF)  )(d), 

OTHERWISE 

error 

(cat (“Illegal  mode  in  port  declaration:  ’’) 

(port-decl)))  in 

process-dec(id'*' )  (type)  (opt-expr)  (p)  (  vis)  (u)  (t) 


Refer  to  the  discussion  following  semantic  equation  DT5  in  Section  6.5.5. 

(PDT3)  PDT  [  SLCDEC  PORT  id"**  mode  slice-name  opt-expr  |  (p)(vis)(u)(t) 

=  let  (type-mark, discrete-range)  =  slice-name  in 
lookup-type(type-mark)  (p)  (z)  (t) 
where 

z  =  Ad.let  type  =  (case  mode 

IN  mk-type((SIG  VAL)  )(d), 

OUT  mk-type((SIG  OUT)  )(d), 

(INOUT  , BUFFER  )  mk-type((SIG  REF)  )(d), 
OTHERWISE 
— ►  error 

(cat( “Illegal  mode  in  port  declaration;  ’’) 
(port-decl)))  in 

process-slcdec 

(id"*" )  (type)  (discrete-range)  (opt-expr)  (p)  (vis)  (u)  (t ) 


Refer  to  the  discussion  following  semantic  equation  DT6  in  Section  6.5.5. 


6.5.5  Declarations 

(DTO)  ^  [e  1  (p)(vis)(u)(t)  =  u(t) 


(DTI)  ^  [[decl  decl*  |  (p)(vis)(u)(t) 

=  DT  I  decl  I  (p)(vis)(ui)(t) 

where  m  =  At.DT  |  decl*  ]  (p)(vis)(u)(t) 


(DT2)  DT  [pkg-decl  pkg-ded*  |  (p)(vis)(u)(t) 

=  DT  I  pkg-ded  |  (p)(vis)(ui  )(t) 

where  ui  =  At.DT  [  pkg-ded*  |  (p)(vis)(u)(t) 

(DT3)  DT  |[pkg-body  pkg-body*  |  (p)(vis)(u)(t) 

=  ^  I  pkg-body  1  (p)(vis)(ui)(t) 

where  ui  =  At.DT  [  pkg-body*  |  (p)(vis)(u)(t) 


(DT4)  DT  [  use-dause  use-dause*  |  (p)(vis)(u)(t) 

=  DT  [[  use-dause  J  (p)(vis)(ui)(t) 

where  ui  =  At.DT  [[  use-dause*  |  (p)(vis)(u)(t) 


The  elaboration  and  checking  of  a  sequence  of  declarations  proceeds  from  the  first  to  the 
last  declaration  in  the  sequence. 

(DT5)  DT  [  DEC  object-dass  id'*'  type-mark  opt-expr  J  (p)(vis)(u)(t) 

=  let  q  =  find-proguiut-env(t)(p)  in 
let  d  =  t(q)(*UNIT*  )  in 
let  tg  =  tag(d)  in 
(case  object-dass 

(CONST  ,SYSGEN  )  lookup-type(type-mark)(p)(2)(t), 

VAR 
(case  tg 

(♦PACKAGE*  ♦ENTITY*  ♦ARCHITECTURE* ) 

— >  error 

(cat( “Illegal  VARIABLE  declaration  in  ”)(tg)(“  context:  ”) 

(decl)), 

OTHERWISE  — ►  lookup- type  (type-mark)  (p)(z)(t)), 

SIG 

— ►  (case  tg 

(♦PROCESS*  ,*PROCEDURE*  ,*FUNCTION*  ) 

— ►  error 

(cat (“Illegal  SIGNAL  declaration  in  ”)(tg)(“  context:  ”) 

(decl)), 

OTHERWISE  — ♦  lookup-type(type-mark)(p)(z)(t)), 

OTHERWISE  error 

(cat( “Illegal  object  class  in  declaration:  ’’)(ded))) 

where 

z  =  Ad.let  type  =  (object-class  =  CONST  mk-type( (CONST  VAL)  )(d), 
mk-type(mk-tmode(object-class)(REF  ))(d))  in 
process-dec(id'*'  )(type)(opt-expr)(p)(vis)(u)(t) 

find-progunit-env(t)  (p) 

=  (t(p)(*UNIT*  )/  *UNBOUND*  p, 

(null(p)— error(“Ko  program  unit  ??!  ”), 
iind-progunit-env(t)(rest(p)))) 
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lookup“type(id*  )(p)(z)(t) 

=  (niill(id^)-^  z(void-type-desc()), 
najne-type(id*  )  (e)  (p)  (t)  ( v) 
where 

V  =  Aw.  (second  (tmode(w))=  TYP  — ►  z(tdesc(w)), 
error(cat(“Not  a  type:  ”)(namef(tdesc(w)))))) 

naxae-type(naine)  ( w)  (p)  (t)  (v) 

=  (null(w) 

— ►  let  wi  =  lookup2(t)(p)(s)(lid(name))  in 

(wi  =  *UNBOUND*  — ►  error(cat( ‘‘Unbound  identifier:  ”)($(p)(hd(name)))), 
let  tm  =  tmode(wi) 

and  d  =  tdesc(wi )  in 

(second(tm)E  (OBJ  TYP)  — ►  name-type(tl(name))(wi)(p)(t)(v), 
hd(tm)=  PATH 

— ►  (“ivalidate-access(nanie)(wi  )(second(tm)) 

— ►  error(cat( “Illegal  access  via:  ”)(namef(d))), 
naine-type(tl(name))(((PATH  ,tl(second(tm))),d))(p)(t)(v)), 
error 

(cat (“Shouldn’t  happen  in  auxiliary  semantic  function  NAME-TYPE:  ”) 
(wi)))). 

let  d  =  tdesc(w)  in 
let  tg  =  tag(d)  in 
(null(name) 

(tg  e  (^PROCEDURE*  ^FUNCTION*) 

— ►  (nuU(body(d))— ►  error  (cat  (“Missing  subprogram  body:  ”)(namef 

(d))), 

(null(pars(hd(signatures(d))))— v(extract-rtype(d)), 
error  (cat  (“Missing  subprogram  arguments:  ’’)(namef(d))))), 

v(w)), 

let  X  =  hd(name) 

and  tm  =  tmode(w)  in 
(consp(x) 

iist-type(x)(p)(t)(vv) 

where 

vv  =  AwJ.( (second (tm)=  OBJ  A  is*array?(type(d))) 

V  (second(tia)G  (REF  VAL)  A  is- array- tdesc?(d)) 

— ►  (length(x)>  1 
— ►  error 

(cat(“Too  many  array  indices  for:  ”)(namef 

(d))), 

(is-integer?(hd(wj )) 

— name-type 
(tl(name)) 

( (second  (tm)=  OBJ 

—j'  mk-type(tmode(type(d)))(elty(tdesc(type(d)))), 
ink-type(tm)(elty(d))))(p)(t)(v), 

error 

(cat (“Non- integer  array  index  for;  ”)(nainef 

(d))))). 

tg  €  (*PROCEDURE*  *FUNCTION*) 

— ►  (nuD(body(d)) 

— ^  error(cat( “Missing  subprogram  body:  ”)(namef 

(d))).  _ 

let  rtype  =  compatible-signatures(wJ)(signatures(d))  in 
(null(rtype) 

— ►  error 
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(cat (“Incompatible  parameter  types  for:  ”) 

(namef(d))), 

name-type(tl(name))(rtype)(p)(t)(v))), 
error(cat(nainef(d))(“  cannot  have  an  argxunent  list”))), 

((second(tm)=:  OBJ  A  is-record?(type(d))) 

V  (second(tin)€  (REF  VAL)  A  is-record-tdesc?(d)) 
let  di  =  (second(tm)=  OBJ  -♦  tdesc(type(d)),  d)  in 

let  d2=loohj)-recor(l-fiel(l(coiiiponents((li))(x)  in 

(d2  =  *UNBOUND*  error(cat( “Unknown  record  field:  ”)(x)), 

let  tmm  =  (second(tm)=  OBJ  — ►  tmode(type(d)),  tm)  in 
name-type(tl(name))(mk>type(tmm)(d2))(p)(t)(v)), 
second(tm)/  OBJ  V  second(tm)5^  TYP 
— ►  let  wi  =  lookupKlocal(t)(%(path(d))(idf(d)))(x)  in 
(wi  =  ^UNBOUND* 

— ^  error  (cat  (“Unknown  identifier:  ”)($(%(path(d))(idf(d)))(x))), 
second(tmode(wi  ))^  ACC  — ►  n<tine-type(tl(name))(wi)(p)(t)(v), 
hd(tm)=  PATH 

— ►  (-'niill(tl(naine))A  -'validate-access(naine)(wi)(second(tm)) 

— ►  error(cat(“Illegal  access  via:  ”)(namef(tdesc(wi)))), 
name-type 

(tl(name))(((PATH  ,tl(second(tm))),tdesc(wi  )))(p)(t) 

(v)). 

error 

(cat (“Shouldn’t  happen  in  auxiliary  semantic  fimction  NAME-TYPE:  ”) 

(Wl))), 

error(cat(“Illegal  access  via:  ”)(namef(d))))))) 


lookup2  (t)  (p)  (q)  (id) 

=  let  d  =  t(p)(id)  in 
(d  =  ^UNBOUND* 

(-‘null(p)-+  lookup2(t)(rest(p))(cons(last(p),q))(id),  ^UNBOUND*  ), 

(case  tag(d) 

(^OBJECT*  ,*ENUMELT*  )  ((DUMMY  ,OBJ  ),d), 

(♦PACKAGE*  ,*PROCESS*  ,*PROCEDURE*  ,*FUNCTION*  ,*LOOPNAME*  *PROCESSNAK 
-  ((PATH  ,q),d), 

OTHERWISE  ((DUMMY  ,TYP  ),d))) 

Vcdidate- access  (name)  (w)  (q) 

=  let  tg  =  tag(tdesc(w))  in 

-.(tg  E  (*PROCESSNAME*  *LOOPNAME*) 

V  (tg  G  (*PROCEDURE*  *FUNCTION*) 

A  (-«null(tl(name))A  ->consp(hd(tl(name)))))) 

V  (-inull(q)A  hd(ncLme)=  hd(q)) 

list-type(expr*)(p)(t)(vv) 

=  (null(expr* )->-♦«  vv(e), 

let  expr  =  hd(expr*)  in 
ETl[exprI(p)(k)(t) 
where 
k  =  A(w,e),t. 

(second(tmode(w))=  ACC 

error  (cat  (“Non- value  (cin  access)  :  ”)(namef(tdesc(w)))), 
list-type(tl(expr*))(p)(t)(Aw*.vv(cons(w,w*))))) 

lookup-local(t)(p)(id) 

=  let  d  =  t(p)(id)  in 

(d  =  *UNBOUND*  ^  *UNBOUND*  , 
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let  tg  =  tag(d)  in 

(tg  e  (*LOOPNAME*  *PROCESSNAME*)  ((DUMMY  ,ACC  ),d), 

(exported(d) 

— ►  (case  tg 

(♦OBJECT*  *ENUMELT*  )  ((DUMMY  ,OBJ  ),d), 

(♦PACKAGE*  *PROCESS*  ♦PROCEDURE*  ♦FUNCTION*  )  ^  ((DUMMY  ,ACC  ),d), 
OTHERWISE  ^  ((DUMMY  ,TYP  ),d)), 

♦UNBOUND*  ))) 


compatible-signatures(x)(signatures) 

=  (niill(signatures)^  e, 

let  signature  =  hd(signatures)  in 
(compatible-'par-types(x)(extract-par-types(pars(signature))) 
— ►  rtype(signatuie), 

compatible-signatures(x)  ( tl  (sign  atures) )  )  ) 


compatible-paj-types(x)  (y ) 

=  (lengtli(x)7^  lengtli(y)-^  if, 
length  (x)=  0  — >■  tt, 
let  wi  =  hd(x) 

and  W2  =  hd(y)  in 
(tdesc(wi)^  tdesc(w2)— If, 
let  mi  =  ref-mode(tmode(wi)) 

and  m2  =  ref-mode  (tmode(w2))  in 
(mi  =  REF  V  mi  =  m2  compatible-par-types(tl(x))(tl(y)),  ff))) 


extract-par-types(x) 

=  (null(x)— ►  s,  cons(second(hd(x)),extract-par-types(tl(x)))) 


extract-rtype(d) 

=  let  signature  =  lid(signatures(d))  in 
rtype(signature) 


lookup-record-iield(comp'*' )  (id) 

=  (null(comp*)-^  ♦UNBOUND*  , 
let  (x,d)  =  hd(comp*)  in 
(x  =  id  — ►  d,  lookup-record-field(tl(comp*))(id))) 

process-dec  (id"*" )  ( w)  (opt-expr)  (p)  (vis)  (u)  (t ) 

=  (null(opt-expr) 

— ►  (is-const?(w)— ►  error (cat( “Uninitialized  constant:  ”)($(p)(hd(id‘^)))), 
enter-objects(id+)(<e,*OBJECT*  ,p,vis,w,*UNDEF*  ,c>)(t)(p)(u)), 
let  expr  =  opt-expr  in 
KL  II  expr  I  (p)(k)(t) 
where 

k  =  A(wi,e),t. 

let  d  =  tdesc(w) 

and  di  =  tdesc(wi)  in 
(match- types(d,di) 

—*■  let  init-val  =  (is-const?(w)A  -*> (is- array ?(w)V  is-record?(w))  — >  e, 
♦UNDEF*  )  in 

enter-objects(id'*’)(<e,*OBJECT*  ,p, vis, w, init-val, £>)(t)(p)(u), 
error(cat(“Initialization  type  mismatch:  ’’)(d)(di)))) 
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inatch-types(di  .dj  ) 

=  (case  tag(di ) 

(♦BOOL-^  *BIT»  *INT*  *REAL*  *TIME*  ,’*=ENUMTYPE*  ) 
♦ARRAYTYPE* 

— ►  tag(d2)=  *ARRAYTYPE*  A  match-array-type-names(di,d2), 

♦RECORDTYPE* 


-.tag(d2)=  *RECORDTYPE* 

Ani(set-difference 


di  =  d2, 


OTHERWISE  —  match-type-names(idf(di),idf(d2))) 


match-array- type'names(di  ,d2 ) 

=  let  idfi  =  hd(di) 

aad  idf2  =  hd(d2 )  in 

(consp(idfi  )A  consp(idf2  )—►  match-type-names(hd(idfi),hd(idf2)), 
consp(idfi )— ►  match-type-names(hd(idfi )  ,idf2 ) , 
consp(idf2  )— ►  match-type-names(idfi  ,hd(idf2 )), 
match-type-names(idfi  ,idf2)) 

match-type-names(idi  ,id2) 

=  idi  =  ^ANONYMOUS*  V  id2  =  *ANONYMOUS* 


array-size(d) 

=  (ub(d)A  lb(d) 

let  Ibound  =  hd(tl(lb(d))) 

and  ubound  =  hd(tl(ub(d)))  in 
(ubound— lbound)+lj 

-1) 


iilter-components(components) 

=  (null(components)— e, 

let  component  =  hd(components)  in 
cons ( ( hd  (component ) , second  (comp onen t ) ) , 
filter-components(tl(components)))) 


An  object  declaration  declares  a  list  of  identifiers  to  be  of  tbe  type  given  by  the  type-mark, 
which  must  be  the  name  of  a  type  that  has  already  been  entered  in  the  visible  part  of  the 
TSE.  The  identifiers  must  be  distinct.  The  first  of  these  identifiers  is  used  in  error  messages. 
If  the  identifiers  are  being  declared  as  constants  but  no  initialization  expression  is  present, 
then  an  UNINITIALIZED-CONSTANT  error  is  reported.  K  constants  are  being  declared, 
then  their  type  is  a  value  type;  variables  and  signals  have  reference  types.  If  variables 
or  signals  are  being  declared  without  an  initialization  expression,  then  the  identifiers  are 
entered  into  the  TSE  with  an  undefined  initial  value  *UNDEF*  by  the  function  enter- 
objects,  whose  operation  is  explained  below.  If  present,  the  initialization  expression  is 
checked  and  its  type  compared  to  the  value  type  of  the  declared  identifiers.  If  these  types 
are  not  equal,  then  an  initialization  type  mismatch  is  reported.  U  the  identifiers  are  being 
declared  as  constants,  they  are  entered  into  the  TSE  with  an  initial  value  equal  to  the 
(static)  value  of  the  initialization  expression. 

The  function  enter-objects  enters  into  the  TSE  a  scalar  descriptor  for  each  of  a  list  of 
identifiers.  Duplicate  declarations  are  detected.  The  descriptors  are  created  from  (1)  the 
identifiers  and  (2)  a  list  of  remaining  field  values  input  to  enter-objects. 
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The  function  name-type  returns  the  type  (consisting  of  a  type  mode  and  a  type  descriptor) 
of  a  reference  (ref).  In  Phase  1,  refs  are  essentially  sequences  of  identifiers  and  expression 
lists;  refs  must  begin  with  an  identifier.  As  name-type  processes  a  ref,  it  carries  along 
(in  parameters  name  and  w,  respectively)  the  remainder  of  the  ref  to  be  processed  and 
the  type  to  be  computed  for  that  portion  of  the  original  ref  processed  thus  far.  During 
this  processing,  special  type  modes  that  are  identifier  lists  may  be  used  to  validate  accesses 
to  items  declared  inside  packages  or  subprograms;  validate-access  checks  these  accesses. 
The  function  list-type  returns  the  list  of  the  types  of  its  components;  when  a  list  is  used 
as  an  actual  parameter  list  in  a  subprogram  call,  compatible- par-types  checks  whether 
the  types  of  this  list’s  components  are  compatible  with  (not  necessarily  equal  to)  the  types 
of  the  corresponding  formal  parameters  of  the  subprogram. 

(DT6)  DT  [[  SLCDEC  object-class  id"*"  slice-name  opt-expr  J  (p)(vis)(u)(t) 

=  let  (type-mark, discrete-range)  =  slice-name  in 
let  q  =  find-progunit-env(t)(p)  in 
let  d  =  t(q)(*UNIT*  )  in 
let  tg  =  tag(d)  in 
(case  object-class 

(CONST  ySYSGEN  )  — >•  lookup- type( type-mark) (p)(z)(t), 

VAR 
— ►  (case  tg 

(♦PACKAGE*  ,*ENTITY*  ,*ARCHITECTURE*  ) 

— ^  error 

(cat(  “Illegal  VARIABLE  declaration  in  ”)(tg) 

(“  context:  ”)(decl)), 

OTHERWISE  — +  lookup-type(type-mark)(p)(z)(t)), 

SIG 
(case  tg 

(♦PROCESS*  ,*PROCEDURE*  ,*FUNCTION*  ) 

— ►  error 

(cat(“Illegal  SIGNAL  declaration  in  ”)(tg)(“  context: 

(decl)), 

OTHERWISE  lookup-type(type-mark)(p)(2)(t)), 

OTHERWISE 

— ►  error(cat( “Illegal  object  class  in  declaration:  ”)(decl))) 
where 

2  =  Ad.let  type  =  (object-class  =  CONST  mk-type((CONST  VAL)  )(d), 
mk-type(mk-tmode(object-class)(REF  ))(d))  in 
process-slcdec 

(id"*" )  (type)  (discrete-range)  (opt-expr)  (p)(  vis)  (u)  (t) 

process-slcdec  (id  )  (w)  (discrete-range)  (opt-expr)  (p)  (vis)  (u)  (t) 

=  let  d  =  tdesc(w)  in 

(->is-array?(w)—>' error  (cat  (“Can’t  form  slice  of  non-array  t3rpe:  ’’)(d)), 
let  (direction, expri  ,expr2)  =  discrete-range  in 
[expn  I  (p)(ki)(t) 
where 

ki  =  A(wi,ei),t. 

RT  I  expr2  ]  (p)(k2)(t) 
where 

k2  =  A(w2,e2),t. 

(“i(is-integer?(wi)A  is-integer?(w2)) 

— error 

(cat( “Non-integer  array  bound  for:  ”)($(p) 

(hd(id+)))). 
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let  field-values  =  tl(array-type-desc 

(TEMPJ^AME  )(e)(p)(vis) 
(direction) 

((direction  =  TO 
^  (ei  =  ♦UNDEF’*' 

-*  second(EX  |  expri  ]]  (p)(t)), 
(NUM  ,ei)), 

(62  =  *UNDEF* 

-<■  second(EX  |[  expr2  1  (p)(t)), 
(NUM  ,62)))) 

((dit6ction  =  TO 

(62  =  *UNDEF* 

—  second(EX  [  6xpr2  1  (p)(t)), 
(NUM  ,62)), 

(ei  =  *UNDEF* 

-+  s6Cond(EX  |[  6xpri  |  (p)(t)), 
(NUM  ,60)))(elty(d)))  in 

(null(opt-expr) 

— *■  6iit6r-airay-obj6cts 

(id"'')(idf(d))(tmode(w))(fi6ld-valu6s)(t)(p)(vis) 

(u), 

ch6ck-array-aggregat6(opt-6xpr)(p)(v)(t) 

where 

V  =  Aw3.(match-types(elty(d),tdesc(w3)) 

—>■  enter-ciiray-objects 

(id"*" )  (idf(d) )  ( tmod6(  w) ) 

(field- values )( t )( p)  ( vis)  (u ) , 

error 

(cat(“Initiali2ation  type  mismatch  for:  ”) 
($(p)(hd(id+ )))))))) 

enter-axray“Objects(id*  )  (array-type-name)  (tmode)  (field- values)  (t)(p)  (vis)  (u) 

=  (null(id*)— ►  u(t), 

let  idi  =  hd(id*)  in 

let  id2  =  ne w- array- type-name( array- type-name)  in 
let  di  =  cons (id2 , field- vcJues)  in 
let  ti  =  enter(t)(p)(id2)  (field- values)  in 
let  new-type  =  mk-type(tmode)(di)  in 
(t(p)(idi)/  ^UNBOUND* 

error(cat(“Duplicate  array  declaration:  ”)($(p)(idi))), 
let  d2  =  <£,*0BJECT*  , p, vis, new-type, *UNDEF*  ,s>  in 
let  t2  =  enter(ti)(p)(idi)(d2)  in 
enter-axray-objects 

(tl(id*  ) )  (array- type-name)  (tmode)  (field- values)  (t2  )  (p)  ( vis)  (u) ) ) 

check-array-aggregate(expr)  (p)  (v)  (t) 

=  let  (tgjexpr"**)  =  expr  in 
(tg  ^  BITSTR  A  tg  STR 

— ►  error (cat( “Improper  array  initialization  aggregate:  ”)(expr)), 
let  expri  =  hd(expr"^)  in 
RT  lexpn  J  (p)(k)(t) 

where  k  =  A(wi,ei),t.check-exprs(wi)(tl(expr‘^))(p)(v)(t)) 

check-exprs(w)  (expr*)  (p)  (v)  (t) 

=  (null(expr*)— v(w), 

let  expr  =  hd(expr*)  in 
RT[[exprI(p)(k)(t) 
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where 

k  =  A(wi,ei),t. 

(wi  ^  w  — ►  “Nonimif  orm  array  aggregate  , 
ciieck“exprs(w)  (t^expr"^ ) )  (p)  (v)  (t)) ) 

A  declaration  of  a  slice  of  a  (previously  defined)  array  type  is  a  special  form  of  object 
declaration  for  arrays  of  anonymous  type.  Because  a  declaration  of  a  list  of  identifiers  is 
considered  to  be  an  abbreviated  representation  of  the  sequence  of  corresponding  declarations 
of  each  of  the  individual  identifiers  in  the  list,  the  (anonymous)  type  of  each  of  the  declared 
identifiers  is  distinct  Each  of  these  distinct  anonymous  array  types  is  given  a  distinct, 
new,  system-generated  name  in  Phase  1  of  the  Stage  2  VHDL  translator  (via  the  function 
new-array-type- name),  and  corresponding  distinct  type  descriptors  are  entered  into  the 
TSE.  If  present,  the  initialization  part  of  the  declaration  is  a  list  of  scalar  expressions. 

The  elaboration  and  checking  of  a  slice  declaration  begins  in  the  same  way  as  for  a  scalar 
declaration.  The  slice  bound  expressions  axe  then  evaluated  and  checked  to  ensure  that 
both  are  integers.  If  the  initialization  part  is  absent,  then  descriptors  for  the  declared  array 
identifiers,  together  with  the  descriptors  for  the  corresponding  anonymous  array  types,  are 
entered  into  the  environment  by  enter-array-objects. 

If  the  initialization  part  is  present,  then  it  is  first  processed  by  check-array-aggregate, 
which  invokes  check-exprs  to  ensure  that  each  element  of  the  initialization  part  has  the 
same  (value)  type;  check-aggregate  returns  this  type,  which  is  then  compared  to  the  ar¬ 
ray’s  declared  value  type.  Finally,  enter-array-objects  is  invoked  to  enter  the  descriptors 
for  the  declared  arrays  into  the  environment. 

Refer  also  semantic  equation  DT8,  shown  below. 

(DT7)  I ETDEC  id  id+  ]  (p)(vis)(u)(t) 

=  let  lield-valuesi  =  <e,*ENlJMTYPE*  ,p,vis,id’*'  >  in 
(check-eiium-lits(t)(p)(id)  (id*** ) 

— ►  enter-objects((id))  (field- valuesi  )(t)(p)(ui ), 
nil) 

where 

ui  =  Ati  .let  d  =  cons(id,field-valuesi )  in 

let  field-values2  =  <e,*ENUMELT*  ,p,vis, 

mk-type( (CONST  VAL)  )(d)>  in 
enter-objects(id‘** )  (field- values2 )  (ti )  (p)  (u) 

check-enuni-lits(t)  (p)  (id)  (id* ) 

=  (niill(id*)— ^  tt, 

let  idi  =  hd(id* )  in 

(lookup(t)(p)(idi)=  *UNBOUND*  check-enum-lits(t)(p)(id)(tl(id*)), 
error 

(cat (“Illegal  overloading  for  enumeration  literal  ”)(idi) 

(“  in  enumeration  type:  ”)($(p)(id))))) 

An  enumeration  type  declaration  causes  corresponding  enumeration  type  descriptors  to  be 
entered  into  the  TSE.  At  the  same  time,  descriptors  for  the  individual  elements  of  the 
enumeration  type  are  entered  into  the  TSE;  these  elements  are  treated  as  constants. 

(DT8)  DT  [[  ATDEC  id  discrete-range  type-mark  1  (p)(vis)(u)(t) 
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=  lookup-type(type-mark)(p)(2)(t) 
where 

z  =  Ad. let  (direct ion, expri  jCxpra)  =  discrete-range  in 
let  array- type-desc  =  array-type-desc 

(id )  (e )  (p )  ( vis)  ( direc  tion ) 

((direction  =  TO 

secondfEX  [[  expn  J  (p)(t)), 
secondfEX  I  expr2  J  (p)(t)))) 

((direction  =  TO 

secondfEX  [[  expr2  1  {p)(t)), 
secondfEX  [  expn  1  (p)(t))))(d)  in 

attributes-low-high 

((id, array-type-desc, (INTEGER)  ))(p)(vis)(u)(t) 

attributes-lo  w-high(id  ,type-desc,attribute-type-mark)  (p)  (vis)  (u)  ( t) 

=  enter-objects((id))(tl(type-desc))(t)(p)(ui ) 
where 

m  =  Ati.let  decl  =  (DEC  ,SYSGEN  ,(mk-tick-low(id),mk-tick-high(id)),attribute-type-majk,c)  in 
DT  I  decl  J  (p)(vis)(u)(ti) 

mk- tick-low  (id)  =  catenate(id,“’LOir’) 

mk- tick-high  (id)  =  catenate(id,“’HIGH’’) 


An  array  type  declaration  causes  corresponding  array  type  descriptors  to  be  entered  into  the 
TSE.  The  array  type  attributes  ^low  and  ^high,  representing  the  lower  and  upper  bounds, 
respectively,  are  declared  as  system-generated  variables. 

(DT9)  DT  [  PACKAGE  id  decl*  opt-id  I  (p)(vis)(n)(t) 

=  (t(p)(id)/  ^UNBOUND* 

— +  error  (cat  (“Duplicate  package  declaration:  ’’)(S(p)(id))), 

(--«null(opt-id)A  opt-id  ^  id 
— ►  error 

(cat( “Package  ’’)($(p)(id))(“  ended  with  incorrect  identifier:  ’’) 

(opt-id)), 

let  d  =  <e,*PACKAGE*  ,p,vis,e>  in 
let  ti  =  enter(t)(p)(id)(d)  in 

let  t2  =enter(extend(ti)(p)(id))(%(p)(id))(*UNIT*  )(<£,*PACKAGE*>)  in 
let  ta  =  enter(t2)(%(p)(id))(*USED*  )(<e,€r>)  in 
let  t4  =  enter(t3)(%(p)(id))(*IMPT*  )(<e,e,e>)  in 

Ui (t4) 

where  ui  =  At.DT  [decl*  |  (%(p)(id))(tt)(u)(t))) 

(DTIO)  ^  I  PACKAGEBODY  id  deer  opt-id  ]  (p)(vis)(u)(t) 

=  let  d  =  t(p)(id)  in 

(d  =  ^UNBOUND*  — ►  error(cat( “Missing  package  declaration:  ’’)($(p) 

(id))), 

tag(d)^  *PACK  AGE* —►  error  (cat  ( “Not  a  package  declaration:  ’’)(S(p) 

(id))), 

-•null(pbody(d))— ►  error  (cat  (“Duplicate  package  body:  ”)($(p)(id))), 

-•null (opt-id)  A  opt-id  ^  id 
— ^  error 

(cat( “Package  body  ’’)(S(p)(id))(“  ended  with  incorrect  identifier:  ”) 

(opt-id)), 

let  q  =  %(path(d))(id)  in 
let  ti  =  enter(t)(q)(*LAB*  )(<e,e>)  in 
let  t2  =  enter(ti)(p)(id)(<e, ’•'PACKAGE*  ,path(d),exported(d),*BODY*  >)  in 
DTI  decl*  l(q)(fF)(u)(t2)) 
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A  package  is  an  encapsulated  collection  of  declarations  (including  other  packages)  of  logi¬ 
cally  related  entities  identified  by  the  package’s  name.  A  package  is  generally  provided  in 
two  parts:  the  package  declaration  and  the  package  body.  The  package  declaration  provides 
declarations  of  those  items  that  axe  exported  (i.e.,  made  visible)  by  the  package.  The  package 
body  provides  the  bodies  of  items  whose  declarations  appear  in  the  package  declaration,  to¬ 
gether  with  the  declarations  and  bodies  of  additional  items  that  support  the  items  exported 
by  the  package.  These  latter  items  are  not  exported  by  the  package,  i.e.,  they  cannot  be 
made  visible  outside  the  package.  In  our  implementation,  the  descriptors  of  exported  and 
nonexported  items  alike  are  entered  into  the  same  local  environment.  The  exported  field  of 
these  descriptors  distinguishes  between  the  two  kinds  of  items.  K  an  item  can  be  exported 
by  a  USE  clause,  then  the  exported  field  of  its  descriptor  contains  tt  (denoting  true;  if  not, 
then  this  field  contains  ff  (false). 

The  items  declared  in  a  package  declaration  are  not  directly  visible  outside  the  package,  but 
they  can  be  accessed  by  using  a  dotted  name  beginning  with  the  package  name,  provided 
that  the  package  name  is  visible  at  the  point  of  access.  A  descriptor  for  the  package 
declaration  is  entered  into  the  current  environment.  In  order  to  encapsulate  the  items 
within  a  package,  the  resulting  TSE  is  then  extended  along  the  current  path  by  an  edge 
labeled  with  the  package  name;  the  new  environment  is  marked  (in  its  *UNIT*  cell)  as  a 
package  environment.  Then  the  constituent  declarations  of  the  package  are  elaborated  and 
checked  in  the  new  environment. 

The  items  declared  in  a  package  body  are  not  exported  from  the  package  and  thus  must 
not  be  accessible  by  an  extended  name.  Therefore  the  exported  field  of  the  descriptors  for 
the  inaccessible  entities  must  be  set  to  ff,  thus  marking  them  as  not  exportable. 

(DTll)  DT  1[  PROCEDURE  id  proc-par-spec*  type-mark  J  (p)(vis)(u)(t) 

=  (t(p)(id)^  ^UNBOUND* 

— +  error(cat( “Duplicate  procedure  declaration  for:  ”)($(p)(id)))j 
let  pi  =  %(p)(id)  in 

let  ti  =enter(extend(t)(p)(id))(pi)(*UNIT*)(<£*PROCEDURE*>)  in 
eiiter-fornial-pars(*PROCEI)URE*  )(proc-par-spec*)(ti)(pi)(ui) 
where 

ui  =  At2.1et  formals  =  let  id'*'  =  collect-fids(proc-par-spec*)  in 
collect-formal-pais(id'*‘ )  (t2 )  (pi )  in 
let  d  =  <e  *PROCEDURE*  ,p,vis, 

((formals,mk-type(( CONST  VAL)  )(void-type-desc()))),e,e>  in 
u(enter(t2)(p)(id)(d))) 


(DT12)  ^  I  FUNCTION  id  func-pai-spec*  type-mark  ]  (p)(vis)(u)(t) 

=  (t(p)(id)7t  ^UNBOUND* 

— ►  error  (cat  (“Duplicate  fimction  declaration  for:  ”)($(p)(id)))j 
let  Pi  =  %(p)(id)  in 
iookup-type(type-mark)  (p)  (z)  (t ) 
where 

z  =  Adi  *let  ti  =  enter 

(extend(t)(p)(id))(pi)(*UNIT*  )(<e  ^FUNCTION*  >)  in 
enter-formal-pars(*FUNCTION*  )(func-par-spec*)(ti)(pi)(ui) 
where 

ui  =:  At2.1et  formals  =  let  id"^  =  collect-fids 

(func-par-spec* )  in 
collect-formal-pars 


(id+)(t2)(pi)  in 

let  d  =  <e  *FUNCTION*  ,p,vis, 

((formalSjink- type  ((VAR  VAL)  )(di  ))),£, e>  in 
u(enter(t2)(p)(id)(d))) 

eiiter-formal-pars(tg)(par-spec*)(t)(p)(u) 

=  (null(par-spec*)--^  ^(^)j 

let  par-spec  =  hd(par-spec* )  in 
let  (object-clasSjid"*" , mode, type-mark, opt-expr)  =  par-spec  in 
(case  tg 

♦PROCEDURE* 

— ►  (case  object-class 

(CONST  ,VAR  ) 

— ►  (case  mode 

(IN  ,OUT  jINOUT  )  lookup-type(type-mark)(p)(z)(t), 

OTHERWISE 
— ►  error 

(cat( ‘‘Illegal  mode  for  procediare  parameters:  ”)(S(p) 

(hd(id+ ))))), 

OTHERWISE 
— ►  error 

(cat(‘‘Unimplcmented  object  class  ”) (object-class) 

(“  for  procedure  parameters:  ”)($(p)(hd(id'*' ))))), 

♦FUNCTION* 

— »•  (case  object-class 
CONST 
— ►  (case  mode 

IN  lookup-type(type-mark)(p)(z)(t), 

OTHERWISE 
— ►  error 

(cat (“Illegal  mode  for  function  parameters:  ”)($(p) 

(hd(id+ ))))), 

OTHERWISE 
—V  error 

(cat (“Unimplemented  object  class  ”) (object-class) 

(“  for  function  parameters:  ”)($(p)(hd(id‘^ ))))), 

OTHERWISE  — +  error  (cat  (“Illegal  subprogram  tag:  ”)(tg))) 
where 

z  =  Ad. let  type  =  (case  mode 

IN  — +  mk-type(mk-tmode(object-class)(VAL  ))(d), 

OUT  — ♦  mk-type(mk-tmode(object-class)(OUT  ))(d), 
OTHERWISE  — »■  mk-type(mk-tmode(object-class)(REF  ))(d))  in 
let  fv  =  <s,*OBJECT*  ,p,tt,type  *UNDEF*  ,s>  in 
enter-objects(id'*'  )(fv)(t)(p)(ui ) 
where  ui  =  At.enter-formal-pars(tg)(tl(par-spec*))(t)(p)(u)) 

collect-fids  (par- spec* ) 

=  (null(par-spec*)-+  s, 

let  par-spec  =  hd(par-spec* )  in 
let  (object-class, id"^ , mode, type-mark, opt-expr)  =  par-spec  in 
append(id'*',collect-fids(tl(par-spec*)))) 


collect-formal- pars(id* )  ( t)  (p) 

=:  (null(id*)— ►  s, 

let  d  =  t(p)(hd(id*))  in 

cons((hd(id*),type(d)),collect-formal-pars(tl(id*))(t)(p))) 
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Checking  a  subprogram  (procedure  or  function)  declaration  first  extends  the  TSE  and  iden¬ 
tifies  the  new  environment  at  the  end  of  the  extended  path  (in  its  *UNIT*  cell)  as  a 
procedure  or  function  environment.  Then  descriptors  for  the  subprogram’s  formal  parame¬ 
ters  are  entered  (by  enter-formal-pars)  into  this  new  environment.  Finally,  a  descriptor 
for  the  subprogram  (with  a  body  field  of  ff,  indicating  that  no  body  for  this  subprogram 
has  been  encountered)  is  entered  into  the  environment  in  which  the  subprogram  is  declared 
locally.  Procedures  are  always  given  a  void  return  type.  The  function  enter-formal-pars 
accepts  a  tag  *PROCEDURE*  or  *FUNCTION*  (procedure  or  function)  to  enable 
it  to  check  that  the  formal  parameters  are  appropriate  to  the  subprogram.  For  example, 
functions  can  have  only  IN  parameters. 

(DT13)  DT  I  SUBPROGBODY  subprog-spec  decP  seq-stat*  opt-id  ]  (p)(vis)(u)(t) 

=  let  (tg, id, par-spec* , type-mark)  =  subprog-spec  in 
let  qname  =  $(p)(id) 
and  d  =  t(p)(id)  in 
(d  =  ^UNBOUND* 

— ►  let  decl  =  subprog-spec  in 
DT  I  decl  I  (p)(vis)(ui)(t) 
where 

ui  =  At.let  d  =  t(p)(id)  in 
process-subprog-body 

(t)  (p)  (id)  (d)  (decl*  )  (seq-stat*  )  (u) , 

-i(tag(d)G  (^PROCEDURE*  ^FUNCTION*)  ) 

— ►  error(cat(qname)(“  is  not  a  subprogram  specification”)), 

(tg  =  PROCEDURE  A  tag(d)=  ♦FUNCTION’*' ) 

V  (tg  =  FUNCTION  A  tag(d)=  ♦PROCEDURE*  ) 

— >•  error  (cat  (“Wrong  kind  of  subprogram  body:  ”)  (qname)), 

“»null(body(d))— >•  error  (cat  (“Duplicate  subprogram  body:  ”)(qname)), 

-inuU(opt-id)A  opt-id  ^  id 
— »■  error 

(cat( “Subprogram  body  ”)(qname) 

(“  ended  with  incorrect  identifier  ”) (opt-id)), 
let  formals  =  let  id"*"  =  collect-iids(par-spec* )  in 

collect-formal-pars(id'*‘  )(t)(%(p)(id))  in 
(formals  ^  pars(hd(signatures(d))) 

— ►  error 

(cat (“Nonconforming  formal  parameters  for  subprogram:  ”) (qname)), 
lookup-type(type-mark)  (p)  (z)  (t) 
where 

z  =  Adi.(di  ^  tdesc(extract-rtype(d)) 
error 

(cat(“UhequaLl  result  types  for  subprogram:  ”) 

(qname)), 

process-subprog-body(t)  (p)(id)(d)  (decl* )  (seq-stat*  )(u)))) 

process-subprog-body(t)(p)(id)(d)(decl* )  (seq-stat  *)(u) 

=  let  pi  =  %(p)(id)  in 

let  ti  =  enter(t)(pi)(*LAB*  )((e,s))  in 
let  ts  =  enter(ta)(pi)(*USED*  )(<e,e>)  in 
let  te  =  enter(t5)(pi)(*IMPT*  ){<e,e,e>)  in 
let  tj  =  enter 

(t6)(p)(id) 

(<e,tag(d),path(d),exported(d),signatures(d),*BODY*  >)  in 
^  I  decl*  1  (pi)(tt)(ui)(tr) 
where  iii  =  Atj.SST  [seq-stat*  |  (pi)(u2)(t2) 
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where 

U2  =  Ats.let  t4  =  enter 

(t3)(p)(id) 

(<e,tag(d),path(d),exported(d),signatures(d), 

(DX  [[  ded*  I  (pi)(t3),SSX  |  seq-stat*  J  (pi)(t3))>)  in 

U(t4) 


Checking  the  declaration  of  a  subprogram  body  first  checks  whether  a  declaration  for  the 
subprogram  has  already  been  encountered.  If  not,  then  descriptors  for  the  subprogram 
and  its  formal  parameters  must  be  entered  into  the  TSE  as  above.  Otherwise,  the  declara¬ 
tion  part  of  the  subprogram  body  must  be  checked  for  conformity  with  the  corresponding 
information  previously  entered  in  the  TSE,  In  Stage  2  VHDL  conformity  is  very  strict: 
subprogram  types  and  formal  parameter  names  and  types  must  agree  exactly^  except  that 
formal  parameters  with  no  explicit  mode  are  regarded  as  having  been  specified  with  mode 
IN.  The  subprogram’s  body  (which  consists  of  local  declarations  followed  by  statements)  is 
checked  by  process-subprog-body,  where  initial  entries  are  made  into  its  environment’s 
*LAB*,  *USED*,  and  *IMPT*  cells,  and  its  transformed  abstract  syntax  tree  is  entered 
into  the  body  field  of  the  subprogram’s  descriptor.  Note  that  a  dummy  value  *BODY*  is 
temporarily  entered  in  the  descriptor’s  body  field,  so  that  recursive  calls  of  this  subprogram 
wiU  not  incorrectly  indicate  that  a  call  is  being  made  to  a  subprogram  for  which  a  body 
has  not  been  supplied  (see  the  Phase  1  semantics  of  subprogram  calls). 

(DT14)  DT  [[  USE  dotted-najne**"  J  (p)(vis)(u)(t) 

=  let  pkgs-used-here  =  tlfdotted-name'*' )U  {hd(dotted-name‘^ )}  in 
process- use-clause  (pkgs-used- here)  (p)  (vis)  (u)  (t) 

process-use-clause  (dot  ted-name'*' )  (p)  (vis)  (u)  (t) 

=  check- pkg-names(dotted-name‘*'  )(e)(p)  (vis)  (j)(t) 
where 

j  =  Apkg-qualified-names. 

let  pkg-qnames  =  remove-eiiclosing-pkgs(p)(t)(pkg-qualified-naines)  in 
let  local-pkgs-used  =  third (t(p)(*USED*  ))  in 
let  ti  =  enter 

(t)(p)(*USED*  ) 

((e,pkg-qncLmes  U  local-pkgs-used))  in 
let  t2  =  let  d  =  t(p)(*IMPT*  )  in 
let  qname-list  =  third(d) 

and  id-list  =  fourth(d)  in 
import-qualified-names 

(pkg-qnames)  (qname-list)  (id-list )(p)(ti )  in 

U(t2) 

check-pkg-names(dotted-name*  )  (pkg-qualified- names)  (p)  ( vis)  (j)  (t) 

=  (null(dotted-name*  )-^  j(pkg-qualified-names), 
let  dn  =  hd(dotted-name*)  in 
let  suffix  =  last(dn)  in 
(suffix  ^  ALL 

error  (cat  (“Selected  name  in  USE  clause  must  end  with  suffix  ALL:  ”)(dn)), 
name-type(rest  (dn))  (c)  (p)  (t)(v) 
where 

V  =  Aw.let  d  =  tdesc(w)  in 

(tag(d)#  ^PACKAGE* 

— +  error(cat( “Non-package  name  in  USE  clause:  ”)(namef 
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(d))). 

check-pkg-names 

(tl(dotted-name*))(cons(%(path(d))(idf(d)),pkg-qualified-names)) 

(p)(vis)(j)(t)))) 

remove-enclosi]ig-pkgs(p)  (t)  (pkg-set) 

=  (iiiill(p)— ►  pkg-set, 

let  d  =  t(p)(*UNIT*  )  in 

(d  =  *UNBOUND*  ^  remove-enclosing-pkgs(rest(p))(t)(pkg-set), 

(t}urd(d)=  ^PACKAGE* 

— ►  remove-enclosing-pkgs(rest(p))(t)(set-difFerence(pkg-set)((p))), 
remove-eiiclosmg-pkgs(rest  (p))  (t)  (pkg-set)))) 

import-qualified-names  (pkg-qualified-names)  (item-qualified-names)  (ids-used)  (p)  (t) 

=  (pkg-qualified-names  =  e 

— ►  enter(t)(p)(*IMPT*  )((e,item-qualrfied-names, ids-used)), 
let  pkg-qn  =  hd(pkg-qualified-names)  in 
let  pkg-env  =  t(pkg-qn)  in 

let  exported-qnames  =  export-qualified-names(pkg-env)(e)  in 
let  local-env  =  t(p)  in 
let  (qname’*',id*)  =  import-legal 

(exported-qnames)  (item-qualified-names)  (ids-used) 
(local-env)  in 

import-qualified-names(tl(pkg-quaJified-names))(qname*)(id*)(p)(t)) 

import-legal(exported-qnames)  (qname-list)  (id-list)  (en  v) 

=  (null(exported-qnames)— (qname-list, id-list), 
let  qname  =  hd(exported-qnames)  in 
let  id  =  last  (qname)  in 

let  remaining-exported-qnames  =  tl(exported-qnames)  in 
(id  6  id-list 

— ►  let  qn  =  simple-name-match  (id)  (qname-list)  in 
(null(qn) 

import-legal(remaining-exported-qnames)  (qname-list)  (id-list)  (env) , 
import-legal 

(remaining-exported-qnames)  (set-difFerence(qname-list )(  (qn)  )  ) 
(id-list)  (env)), 
let  d  =  env(id)  in 
(d  =  *UNBOUND* 

— ►  import-legal 

(remaining-exported-qnames)  (cons(qname ,  qname-list ) ) 

(cons  (id,id-list ) )  (env) , 
import-legal 

(remaining-exported-qnames)  (qname-list)  (cons  (id, id-list))  (env)) ) ) 


simple-name-match(id)(qname* ) 

=  (null(qname'^ )— »•  e, 

(id  =  last(hd(qname'^))— hd(qname’*'),  simple-name-match(id)(tl(qname*)))) 

export-qualified-names  (env)  (qualified-names) 

=  (null(env)— >-  qualified-names, 
let  d  =  hd(env)  in 
let  id  =  idf(d)  in 
(case  id 

(*UNIT*  ,*LAB*  ,*USED*  ,*IMPT*  ) 

export-qualified-names(tl(env))  (qualified-names) , 

OTHERWISE 

— ►  (exported(d) 

export-qualified-names(tl(en v) )  (cons(%  (path(d))  (id) , qualified-names) ) , 
export-qualified-names(tl(env))  (qualified-names) )) ) 
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A  USE  clause  is  a  declaration  that  makes  items  declared  in  a  package  specification  visible 
at  the  location  of  the  USE  clause.  Each  of  the  dotted  names  in  a  USE  clause,  neglecting 
the  (obligatory)  suffix  ALL,  must  denote  the  name  of  a  package.  In  essence,  a  USE  clause 
combines  the  exported  environments  associated  with  its  named  packages  both  with  each 
other  and  with  the  local  environment  (among  whose  declarations  the  USE  clause  appears). 

Such  a  combination  of  environments  may  introduce  conflicts,  since  there  may  be  several 
different  declarations  of  an  object  of  the  same  name  in  the  packages  (as  well  as  one  locally). 
Therefore,  certain  constraints  must  govern  how  environments  are  combined: 

1.  K  an  object  x  is  declared  locally,  then  no  declarations  of  x  may  be  imported  to  the 
local  environment  by  the  USE  clause. 

2.  If  an  object  x  is  declared  in  more  than  one  of  the  packages  named  in  the  USE  clause, 
then  none  of  these  declarations  of  x  may  be  imported  to  the  local  environment  by  the 
USE  clause,  even  if  x  is  not  declared  locally. 


These  constraints  ensure  that  (1)  no  local  declaration  is  masked  by  an  imported  one,  and 
(2)  no  duplicate  or  conflicting  declarations  are  imported. 

USE  clauses  are  treated  by  process-use-clause,  which  assumes  that  all  the  USE  clauses  in 
a  program  unit’s  declarative  part  are  located  together  at  the  end  of  that  declarative  part. 
This  restriction  on  the  location  and  grouping  of  USE  clauses  enables  a  determination  of 
those  items  imported  into  a  local  environment  to  be  made  once  and  for  all  by  the  time  the 
unites  declarative  part  has  been  processed.  This  ensures  that  the  list  of  items  imported  into 
an  environment  (stored  in  its  *IMPT*  cell)  need  not  vary  in  Phase  2,  thereby  ensuring 
that  the  entire  TSE  is  throughout  Phase  2.  H  declarations  other  than  USE  clauses  were 
allowed  to  appear  between  USE  clauses,  then  the  set  of  importable  items  may  change  before 
and  after  such  interposed  declarations,  reqmring  a  dynamic  evaluation  of  the  import  list 
during  Phase  2.  We  feel  that  such  generality  is  unnecessary,  because  the  names  of  items 
can  always  be  changed  so  that  their  interposed  declarations  can  be  moved  in  front  of  the 
group  of  USE  clauses. 

First,  the  list  of  names  appearing  in  this  USE  clause  (with  duplicates  removed)  is  given  to 
process-use-clause.  Then  these  names  are  checked  by  check-pkg-names  to  ensure  that 
they  denote  packages;  a  list  of  fully  qualified  package  names  is  returned.  The  names  of 
packages  that  enclose  packages  in  this  list  are  removed  by  remove-enclosing-packages. 
The  (set-theoretic)  union  of  the  resulting  set  of  package  names  (called  pkg-qnames)  and 
the  set  of  names  of  packages  already  appearing  in  USE  clauses  in  this  declarative  part  (stored 
in  the  *USED*  cell  of  this  environment)  is  computed  (in  order  to  avoid  duplication);  the 
resulting  set  of  package  names  is  entered  back  into  the  *USED*  cell.  Next,  the  current  set 
of  fully  qualified  names  of  items  imported  into  this  environment  (qname-list)  is  retrieved 
from  its  *IMPT*  cell.  A  separate  list  of  simple  identifiers  (id-list)  is  also  maintained  in 
the  *IMPT*  cell;  this  list  is  used  to  prevent  illegal  importations  into  the  current  envi¬ 
ronment.  Then  pkg-qnames,  qname-list,  and  id-list  are  passed  to  import-qualified- 
names,  which  adds  the  fully  qualified  names  of  those  items  that  can  be  legally  imported 
into  the  local  environment  by  the  USE  clause  being  processed.  The  auxiliary  functions 
export-qualified-names  and  import-legal  are  used  by  import-qualified-names. 
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6. 5*6  Concurrent  Statements 


(CSTO)  CST  lej  (p)(u)(t)  =  ii(t) 

(CSTl)  CST  [[  con-stat  con-stat*  ]  (p)(u)(t) 

=  CST  [[  con-stat  ]]  (p)(ui)(t) 

where  ui  =  At, CST  |[  con-stat*  J  (p)(u)(t) 

Concurrent  statements  are  statically  checked  in  the  textual  order  of  their  appearance  in  the 
hardware  description. 

(CST2)  CST  [  PROCESS  id  reP  decl*  seq-stat*  opt-id  ]  (p)(u)(t) 

=  let  q  =  tind-ctrchitecture-env(t)(p)  in 
let  labels  =  third(t(q)(*LAB*  ))  in 
(id  €  labels  — >■  error(cat( “Duplicate  process  label:  ”)($(q)(id))), 
let  ti  =  enter(t)(q)(*LAB*  )((e,  cons  (id, labels)))  in 
(•->null(opt-id)A  opt-id  ^  id 
— ►  error 

(cat( “PROCESS  statement  ”)(id) 

(“  ended  with  incorrect  identifier:  ”)(opt-id)), 
let  t2  =  enter(ti)(q)(id)(<e,*PROCESSNAME*  ,p,fF,rer>)  in 
let  Pi  =  %(p)(id)  in 

let  t3  =enter(extend(t2)(p)(id))(pi)(*UNIT*)(<c,*PROCESS*>)  in 
let  U  =  enter(t3)(pi)(*LAB*  )(<c,e>)  in 
let  is  =  enter(t4)(pi)(*USED*  )(<e,c>)  in 
let  te  =  enter(ts)(pi)(*IMPT*  )(<c,e,e>)  in 
let  tr  =  enter(t6)(pi)(*SENS*  )(<£,£>)  in 
^Ilreri(pi)(u2)(t7) 
where  U2  =  At.DT  |  decl*  J  (pi)(tt)(ui)(t) 
where  ui  =  At.SST  fseq-stat*  |  (pi)(n)(t))) 

iind-ajchitecture-env(t)  (p) 

=  (nuU(p)V  tag(t(p)(*UNIT*  ))=  ^ARCHITECTURE*  p, 
find-architecture-env(t)(rest(p))) 


(CST3)  CST  |[  SEL-SIGASSN  delay- type  id  expr  ref  selected- waveform'*'  ]  (p)(n)(t) 
=  let  expr*  =  cons(expr, 

collect-expressions-from-selected- waveforms 
(selected-waveform'*'))  in 
let  ref*  =  delete-duplicates 

(collect-signals-from-expr-list(expr*  )(t)  (p)(e))  in 
let  case-alt ■*■  =  construct-case-alternatives 

(ref )  (delay- type)  (selected- waveform"*")  in 
let  case-stat  =  (CASE  , expr, case-alt ■*■ )  in 
let  process-stat  =  (PROCESS  , id, ref*, e, (case-stat), id)  in 
CST  [[  process-stat  ]]  (p)(u)(t) 

collect-expressions-from-selected-waveforms(selected-waveform*) 

=  (null(selected-waveform*)— ►  e, 

let  selected-waveform  =  hd(selected-waveform*)  in 
let  waveform  =  second(selected-waveform) 

and  discrete-range’*'  =  third(selected-waveform)  in 
let  transaction-exprs  =  collect-transaction-expressions  (second  (waveform))  in 
nconc 

(transaction-exprs, 
cons(second(discrete-range'*' ), 
cons(third(discrete-range'*' ), 
coUect-expressions-from-selected- waveforms 
(tl(selected-waveform*)))))) 
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collect-transaction-expressions(trans*) 

=  (null(trans*)*-^  e, 

let  transaction  =  hd(trans*)  in 

cons(second(transaction),collect-trzinsaction-expressions(tl(trans*)))) 

collect-signals*‘froni-expr'list(expr*)(t)(p)(signal-refs) 

=  (null(expr^)— ^  signal-xefs, 
let  expr  =  lid(expr^)  in 
coUect-signals-from-expr 

(expr)(t)(p)(collect'signals-lrom-expr-list(tl(expr*))(t)(p)  (signal-xefs))) 

collect-signal  s-from-expr  (expr)  (t)  (p)  (signal-refs) 

=  (is-ref?(expr) 

— »•  let  d  =  lookup-obj-desc(expr)(p)(t)  in 

(is-sig?(type(d))— ^  cons  (expr, signal-refs),  signal-refs), 
is-paggr?(expr) 

collect-signals-from-expr-list(second(expr))(t)(p)(signal-refs), 

is-unary-op?(hd(expr)) 

— ►  collect-signals-from-expr(second(expr))(t)(p)  (signal-refs), 
is-binary-op?(hd(expr))V  is-relational-op?(hd(expr)) 

—V  collect-signals-from-expr 
(second  (expr))  (t)  (p) 

(collect-signals-from-expr  (third  (expr)  )(t)(p)(  sign  al-iefs)  ) , 
signal-refs) 

lookup-obj-desc(ref)(p)(t) 

=  let  name  =  second(ref)  in 

let  id*^  =  (consp(last(naine))— rest  (name),  name)  in 
let  q  =  access(rest(id'^))(p)(t)  in 
lookup-desc(t)(q)(last(id'^ )) 

access(id*)(p)(t) 

=  (nuU(id*)-^  p, 

let  id  =  hd(id*)  in 
let  d  =  lookup(t)(p)(id)  in 

(d  =  *  UNBOUND*  — *■  error  (cat  (“Unbound  identifier:  ”)(id)), 
access  (tl(id  * ) )  (%  (path(d) )  (idf(d)))  (t))) 

lookup-desc(t)(p)(id) 

=  let  d  =  t(p)(id)  in 

(d  =  *UNBOUND*  lookuFHdesc(t)(rest(p))(id),  d) 

construct-case- alternatives(ref)(delay- type)  (selected- waveform*) 

=  (null(selected-waveform*)— ►  e, 

let  selected- waveform  =  hd(selected- waveform*)  in 
let  waveform  =  second  (selected- waveform) 

and  discrete-range"^  =  third  (selected-waveform)  in 
let  sig-assn-stat  =  (SIGASSN  ,delay-type, ref, waveform)  in 
let  case-alt  =  (CASECHOICE  ,discrete-range''‘ , (sig-assn-stat))  in 
cons(case-alt, 

construct-case-alternatives(ref)(delay-type)(tl(selected- waveform*)))) 


(CST4)  CST  I  COND-SIGASSN  delay-type  id  ref  cond-waveform*  waveform  J  (p)(u)(t) 
=  let  expr*  =  nconc 

(collect-expressions- from-conditional-waveforms 
(cond-waveform*) , 
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collect- transaction-expressions(second (waveform) ) )  in 
let  ref*  =s  delete-duplicates 

(collect-signals-from-expr-list(expr*  )(t)(p)(e))  in 
(iiull(cond- waveform  * ) 

^  let  sig-assn-stat  =  (SIGASSN  , delay-type, ref, waveform)  in 
let  process-stat  =  (PROCESS  , id, rer,e, (sig-assn-stat), id)  in 
CST  1[  process-stat  J  (p)(u)(t), 
let  cond-part'*’  =  construct-cond-parts 

(ref)  (delay- type)  (cond- waveform  *) 
and  else-part  =  ((SIGASSN  , delay-type, ref, waveform))  in 
let  if-stat  =  (IF  jCond-part"^ , else-part)  in 
let  process-stat  =  (PROCESS  , id, rer,e, (if-stat), id)  in 
CST  I  process-stat  |  (p)(u)(t)) 

coilect-expressions-firom-conditional- waveforms  (cond- waveform  *) 

=  (null(cond- waveform*  )—>■  e, 

let  cond-waveform  =  hd(cond-waveform*)  in 
let  waveform  =  second(cond-waveform) 

and  condition  =  tliird(cond-waveform)  in 
let  transaction-exprs  =  collect-transaction-expressions  (second  (waveform))  in 
nconc 

(transaction-exprs, 

cons(condition, 

collect-expressions-from-conditional-waveforms(tl(cond- waveform  *)) ) ) ) 
construct-cond-parts(ref )  (delay-type)  (cond-waveform  * ) 

=  (null(cond- waveform* )—+  e, 

let  cond-waveform  =  hd(cond-waveform*)  in 
let  waveform  =  second(cond-waveform) 

and  condition  =  third(cond-waveform)  in 
let  sig-assn-stat  =  (SIGASSN  , delay-type, ref,waveform)  in 
le.t  cond-part  =  (condition, (sig-assn-stat))  in 
cons(cond-pajt,construct-cond-parts(ref)  (delay-type)  (ti(cond-waveform*)))) 


6.5.7  Sensitivity  Lists 

(SLTO)^|[el(p)(u)(t)  =  u(t) 

(SLTl)  SI^  [  ref  ref*  ]  (p)(u)(t) 

=  SLTIrefl(p)(ui)(t) 

where  uj  =  At.SLT  [[  rer  |  (p)(u)(t) 

The  refs  in  the  sensitivity  list  of  a  PROCESS  statement  are  checked  in  sequential  order. 

(SLT2)  SLT  I  REF  name  J  (p)(n)(t) 

=  let  expr  =  ref  in 

I  expr  I  (p)(k)(t) 
where 
k  =  A(w,e),t. 

let  d  =  tdesc(w)  in 
(“tis-sig?(w) 

— ►  error 

(cat( “Non-signal  in  process  sensitivity  list:  ”)(ref)), 
let  di  =  lookup(t)(p)(*SENS*  )  in 
let  ti  =  enter 

(t)(p)(*SENS* ) 

(<e,(cons(SliX  f  ref  J  (p)(t),sensitivity(di  )))>)  in 

u(tl)) 
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6.5.8  Sequential  Statements 

(SSTO)^[[e]l(p)W(t)=c(t) 

(SSTl)  SST  [[  seq-stat  seq-stat*  |  (p)(c)(t) 

=  SST  I  seq-stat  J  (p)(ci)(t) 

where  ci  =  At. SST  [[  seq-stat*  J  {p)(c)(t) 


Sequential  statements  are  statically  checked  in  the  textual  order  of  their  appearance  in  the 
hardware  description. 

(SST2)  SST  I  NULL  1  (p)(c)(t)  =  c(t) 


NULL  statements  require  no  checking. 

(SST3)  SST  I VARASSN  ref  expr  J  (p)(c)(t) 

=  let  expro  =  ref  in 
ET  l[expro  J  (p)(k)(t) 
where 
k  =  A(w,e),t. 

let  d  =  tdesc(w)  in 
(->is-var?(w) 

— ►  error 

(cat(“Illegal  target  in  variable  assignment  statement:  ”) 
(seq-stat)), 

--lis- writable?  ( w) 

— ►  error  (cat  (“Read-only  variable:  ”)(namef(d))), 

RT  dexpr  J  (p)(ki)(t) 
where 

ki  =  A(wi,ei),t. 

let  di  =  tdesc(wi)  in 
(matcli-types(d,di)— ►  c(t), 

error  (cat  (“Assignment  type  mismatch:  ”)(d)(di)))) 


find-process-env(t)(p) 

=  (null(p)V  tag(t(p)(*UNIT*  ))=  ^PROCESS*  — ►  p,  find-process-env(t)(rest(p))) 

First  the  left  part  of  a  variable  assignment  statement  is  checked,  and  then  the  right  part. 
The  left  part  must  be  a  variable  of  reference  type  (checked  by  is-var?  and  is-writable?), 
and  the  basic  types  of  the  left  and  right  parts  must  be  the  same,  as  verified  by  match-types 
(refer  to  the  definitions  following  semantic  function  DT5). 

(SST4)  SST  J  SIGASSN  delay- type  ref  waveform  J  (p)(c)(t) 

=  let  expr  =  ref  in 
ETl[exprl(p)(k)(t) 
where 
k  =  A(w,e),t. 

let  d  =  tdesc(w) 

and  q  =  find-process-env(t)(p)  in 
(-iis-sig?(w) 

— ►  error 

(cat(“Illegal  target  of  signal  assignment  statement:  ”) 

(namef(d))), 
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-iis-writable?(w)--»'  error 

(cat( “Read-only  signal:  ”)(namef 

m, 

niill(q) 

error 

(cat(“Sequential  signal  assignment  statement  not  in  a  process:  ”) 
(seq-stat)), 

let  di  =  lookup-obj-desc(ref)(p)(t)  in 
(null(process(di )) 

— ►  let  ti  =  enter 


(t)(path(di))(idf(di)) 

(<£,*0B JECT*  jpath(di  ),exported(di ),type(di ), 
value(di),last(q)>)  in 

Cl(tl), 

process(di  )=  last(q)— »•  ci(t), 
error 

(cat(“Target  of  signal  assignments  in  multiple  processes: 
(namef(di)))) 
where 

Cl  =  Ati , WT  |[  waveform  ]  (p)(ki)(t) 
where 


ki  =  A(wi,ei),t. 

let  di  =  tdesc(wi)  in 
(match-types(d,di)— ►  c(t), 
error 

(cat( “Assignment  type  mismatch:  ”) 

(d)(<iO))) 


(SST5)  SST  1  IF  cond-part'*'  else-part  |  (p)(c)(t) 

=  let  seq-stat*  =  else-part  in 
clieck-if(cond-parf^ )  (p)  (ci )  (t) 

where  ci  =  At.(null(seq-stat*)— ►  c(t),  SST  [[  seq-stat*  |  (p)(c)(t)) 

clieck-if(cond-part  *  )(p)  (c)  (t) 

=  (null(cond-part*)— ►  c(t), 

let  (expr, seq-stat*)  =  hd(cond-part*)  in 
I  expr  I  (p)(k)(t) 
where 
k  =  A(w,e),t. 

(is-boolean?(w) 

— SST  1  seq-stat*  |  (p)(ci)(t) 

where  ci  =  At.check-if(tl(cond-part*))(p)(c)(t), 
error (cat(“Non-boolean  condition  in  IF  statement:  ”)(td€sc 

(w))))) 

A  Stage  2  VHDL  IF  statement  consists  of  one  or  more  conditional  parts  (cond-parts) 
followed  by  a  (possibly  empty)  else-part.  Each  cond-part  consists  of  a  test  expression 
followed  by  sequential  statements  that  are  to  be  executed  when  the  test  expression  is  the 
first  to  evaluate  to  true;  the  sequential  statements  constituting  the  else-part  are  to  be 
executed  when  none  of  the  test  expressions  is  true. 

The  cond-parts  are  first  checked,  in  order,  by  auxiliary  semantic  function  check-if,  after 
which  the  else-part,  if  nonempty,  is  checked  by  SST.  Checking  each  cond-part  involves 
first  ascertaining  that  the  basic  type  of  its  test  expression  is  boolean,  and  then  invoking 
SST  to  check  its  sequential  statements. 
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(SST6)  I  CASE  expr  case-alt+  I  (p)(c)(t) 

=  RT  [  expr  1  (p)(k)(t) 
where 

k  =  A(w,e),ti. 

let  d  =  tdesc(w)  in 
AT  I  case-alt+  ]  (d){p)(y)(ti) 
where 
y  =  Ah,t2. 

(-icase-type-ok(d) 

— ►  error 

(cat( “Illegal  case  selector  type:  ”)(namef 

(d))), 

-icase-coverage(d)  (h) 

— »•  error 

(cat (“Incomplete  case  coverage  for  t3rpe:  ”) 

(namef(d))), 

c(t2)) 

case-type-ok(d) 

=  is-boolean-tdesc?(d)V  is-bit-tdesc?(d) 
case“COverage(d)(h) 

=  (is-boolean-tdesc?(d)A  set-card (h)=  2) 

V  (is-bit-tdesc?(d)A  set-card(h)=  2) 

set-card  (x)  =  length  (x) 

A  Stage  2  VHDL  CASE  statement  consists  of  a  selector  expression  followed  by  one  or  more 
case  alternatives^  each  consisting  of  sequential  statements  preceded  either  by  a  nonempty 
sequence  of  discrete  ranges  or  by  the  reserved  word  OTHERS.  This  discrete  range  sequence 
defines  a  case  selection  set  for  the  particular  case  alternative. 

The  Stage  2  VHDL  concrete  syntax  allows  the  statements  in  a  case  alternative  to  be  preceded 
by  a  list  of  discrete  ranges  and  expressions^  for  uniformity,  in  the  Phase  1  abstract  syntax 
(generated  by  the  Stage  2  VHDL  parser)  these  expressions  are  converted  into  equivalent 
one-element  discrete  ranges. 

A  CASE  statement  must  be  checked  for  the  following: 

•  The  basic  types  of  all  the  case  selection  sets  (and  thus  of  the  expressions  that  define  the 
discrete  ranges)  must  be  the  same,  which  must  match  that  of  the  selector  expression. 
In  Stage  2  VHDL,  the  only  such  basic  types  are  BOOLEAN,  BIT,  INTEGER, 
and  enumeration  types  (including  CHARACTER). 

•  Every  expression  of  every  discrete  range  in  a  CASE  statement  must  be  static^  i.e.,  must 
have  a  value  defined  by  Phase  1.  This  enables  the  contents  of  each  case  selection  set 
to  be  determined  during  Phase  1.  The  OTHERS  alternative,  if  present,  defines  a  case 
selection  set  that  is  the  complement  of  the  union  of  the  other  case  selection  sets  with 
respect  to  the  set  of  values  associated  with  the  b2Lsic  type.  The  BOOLEAN  basic 
type  is  associated  with  the  set  of  truth  values  {FALSE,  TRUE},  the  BIT  basic  type 
with  the  set  of  bit  values  {0,  1},  the  INTEGER  basic  type  with  the  set  of  integers 
{...,  -2,  -1,  0,  1,  2,  ...},  the  CHARACTER  basic  type  with  the  set  {(CHAR 
0),  ...,  (CHAR  127)}  of  ASCII-128  character  representations,  and  an  arbitrary 
enumeration  type  with  the  set  of  its  enumeration  literals. 
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•  The  selection  sets  for  each  case  alternative  must  be  mutually  disjoint^  and  their  union 
must  be  the  set  associated  with  the  basic  type  of  the  selector  expression.  The  case 
selection  subsets  defined  by  the  discrete  ranges  within  each  case  alternative  need 
not  be  disjoint.  Note  that  a  CASE  statement  with  a  selection  expression  of  basic 
type  INTEGER  must  have  an  OTHERS  alternative,  as  the  set  of  integers  cannot  be 
covered  by  a  finite  number  of  case  alternatives,  each  with  only  a  finite  number  of 
(finite)  discrete  ranges. 


The  basic  type  of  the  selector  expression  is  first  determined.  Then  semantic  function  AT  is 
invoked  with  this  basic  type  to  check  the  case  alternatives.  Refer  to  the  discussion  of  AT, 
which  returns  the  union  of  the  case  selection  sets  associated  with  all  of  the  case  alternatives, 
a  union  that  must  cover  the  set  associated  with  the  selector  expression’s  basic  type. 

(SST7)  SST  [[  LOOP  id  seq-stat*  opt-id  |  (p)(c)(t) 

=  let  q  =  find-looplabel«env(t)(p)  in 
let  labels  =  third (t(q)(*LAB*  ))  in 
(id  E  labels  error  (cat  (“Duplicate  loop  label:  ”)($(q)(id))), 
let  t:  =  enter(t)(q)(*LAB*  )((e,cons(id, labels)))  in 
(~uiiill(opt-id)A  opt-id  ^  id 
— ►  error 

(cat (“Loop  ”)(id)(“  ended  with  incorrect  identifier:  ”) (opt-id)), 
let  t2  =  enter(ti)(q)(id)(<e,*LOOPNAME*  ,p>)  in 
let  Pi  =  %(p)(id)  in 

let  t3  =enter(extend(t2)(p)(id))(pi)(*UNIT*)(<e,*LOOP*  >)  in 
let  t4  =  enter(t3)(pi)(*LAB*  )(<£,£>)  in 
let  ts  =  enter(t4)(p)(id)(<£,*LOOPNAME*  ,p>)  in 
let  Cl  =  At.SST  [seq-stat*  |  (pi)(c)(t)  in 

Ci(t5))) 

(SST8)  SST  [[  WHILE  id  expr  seq-stat*  opt-id  ]  (p)(c)(t) 

=  let  q  =  lind-looplabel-env(t)(p)  in 
let  labels  =  third(t(q)(*LAB*  ))  in 
(id  E  labels  — ►  error(cat( “Duplicate  loop  label:  ”)($(q)(id))), 
let  ti  =  enter(t)(q)(*LAB*  )((e,cons(id, labels)))  in 
(opt-id  ^  £  A  opt-id  ^  id 
— ►  error 

(cat(“Loop  ”)(id)(“  ended  with  incorrect  identifier;  ”)(opt-id)), 
let  t2  =  enter (ti)(q)  (id)  (<£,*L00PNAME*  ,p>)  in 
let  Pi  =  %(p)(id)  in 

let  t3=enter(extend(t2)(p)(id))(pi)(*UNIT*)(<£,*LOOP*>)  in 
let  t4  =  enter(t3)(pi)(*LAB*  )(<£,£>)  in 
let  ts  =  enter(t4)(p)(id)(<£,*LOOPNAME*  ,p>)  in 
let  Cl  =  At.SST  [seq-stat*  J  (pi)(c)(t)  in 
RT  [[expr]  (pi)(k)(ts) 
where 
k  =  A(w,e),t. 

(is-boolean?(w)— +  ci(t), 
error 

(cat(“Non~boolean  condition  in  WHILE  statement;  ”) 

(tdesc(w)))))) 

(SST9)  SST  [[  FOR  id  ref  discrete-range  seq-stat*  opt-id  ]j  (p)(c)(t) 

=  let  q  =  find-looplabel-env(t)(p)  in 
let  labels  =  third(t(q)(*LAB*  ))  in 
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(id  e  iabek  — ►  error(cat( “Duplicate  loop  label:  ’’)($(q)(id))), 
let  ti  =  enter(t)(q)(*LAB*  )((e,cons(id, labels)))  in 
(“inull(opt-id)A  opt-id  ^  id 
— ►  error 

(cat (“Loop  ’’)(id)(“  ended  with  incorrect  identifier:  ’^) (opt-id)), 
let  t2  =  enter(ti)(q)(id)(<€:,*LOOPNAME*  ,p>)  in 
let  pi  =  %(p)(id)  in 

let  t3  =  enter(extend(t2)(p)(id))(pi)(*UNIT*  )(<c,*LOOP*  >)  in 
let  t4  =  enter(t3)(pi)(*LAB*  )(<e,e>)  in 
let  ts  =  enter(t4)(p)(id)(<€:,*LOOPNAME*  ,p>)  in 
let  (direction,expri  ,expr2 )  =  discrete-range  in 
RT  lexpri  1  (p)(ki)(t) 
where 

ki  =  A(wi,ei),t. 

let  di  =  tdesc(wi)  in 
BT  [[  expr2  I  (p)(k2)(t) 
where 

k2  =  A(w2,e2),t. 

let  d2  =  tdesc(w2)  in 
(inatch-types(di  ,d2) 

--  let  decl  =  (DEC  , CONST  , 

(hd(hd(tl(ref)))), 

(hd(dO), 

hd(tl(discrete-range)))  in 
PT  I  decl  I  (pi)(tt)(u)(t5), 
error 

(cat( “Bounds  type  mismatch  in  FOR  statement:  ”) 
(seq-stat))) 

where 

U  =  At6.Ci(t6) 

where  ci  =  Aty-SST  |  seq-stat*  ]  (pi)(c)(t7))) 


lind-looplabel-env(t)  (p) 

=  let  tg  =  tag(t(p)(*UNIT*  ))  in 

(nuU(p)V  tg  6  (^PROCESS*  ♦PROCEDURE’^  *FUNCTION*  *LOOP*)  p, 
find-looplabel-env(t)(rest(p))) 


In  Stage  2  VHDL,  entering  a  loop  (i.e.,  a  LOOP,  WHILE  or  FOR  statement)  creates  a  new  com¬ 
ponent  environment  of  the  TSE,  just  as  in  the  case  of  entering  a  subprogram  (see  below). 
The  identifier  that  is  the  loop’s  label  must  be  checked  for  uniqueness  among  the  identifiers 
used  thus  far  as  labels  in  the  innermost  enclosing  program  unit  (process,  procedure,  func¬ 
tion,  or  loop).  If  unique,  the  identifier  is  appended  to  the  innermost  enclosing  unit’s  label 
identifier  list  (bound  to  the  special  identifier  *LAB*  of  the  corresponding  environment). 

A  *LOOPNAME*  descriptor  is  then  entered  into  the  current  environment.  The  resulting 
TSE  is  extended  to  reflect  loop  entry;  the  *UNIT*  entry  in  the  extended  TSE  is  set 
to  *LOOP*  to  associate  the  extended  TSE  with  the  loop,  and  the  *LOOPNAME* 
descriptor  is  also  entered  into  the  extended  TSE.  This  latter  descriptor  is  used  by  EXIT 
statements  contained  in  this  loop  to  validate  the  visibility  of  their  loop  names. 

In  the  case  of  a  WHILE  loop,  the  basic  type  of  the  iteration  control  expression  is  checked  to 
be  BOOLEAN,  and  the  loop  body  is  also  checked  with  SST. 

In  the  case  of  a  FOR  loop,  the  basic  types  of  the  iteration  bounds  expressions  axe  checked  to 
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match,  the  implicit  declaration  of  the  iteration  parameter  is  processed  by  semantic  function 
DT,  and  the  loop  body  is  checked  with  SST. 

(SSTlO)  SST  [[  EXIT  opt-dotted-name  opt-expr  |  (p)(c)(t) 

=  (iiiill(iind“loop-env(t)(p)) 

— error(cat(“EXIT  statement  not  in  a  loop:  ”)(seq-stat)), 

(null(opt-dotted-name)-^  ci(t), 
name-type(opt-dotted-naine)  (e)  (p)  (t)  ( v) 
where 

V  =  Aw.(tag(tdesc(w))9^  *LOOPNAME* 

— ►  error(cat(‘‘Not  a  loop  name:  ”)(namef(tdesc(w)))), 

Cl(t))) 

where 

Cl  =  At.(null(opt-expr)— »■  c(t), 
let  expr  =  opt-expr  in 
^  I  expr  I  (p)(k)(t) 
where 
k  =  A(w,e),t. 

(is-boolean?(w)— »•  c(t), 
error 

(cat(“Non-boolean  condition  in  EXIT  statement:  ”) 

(tdesc(w)))))) 

An  EXIT  statement  must  be  contained  within  a  loop;  otherwise,  an  error  is  raised.  K  an 
exit  control  expression  is  present,  its  basic  type  is  checked;  if  not  BOOLEAN,  an  error  is 
raised. 

(SSTll)  SST  I  CALL  ref]  (p)(c)(t) 

=  let  expr  =  ref  in 
ET|[exprl(p)(k)(t) 
where 
k  =  A(w,e),t. 

(tag(tdesc(w))=  *VOID*  — »■  c(t), 
error( “Invalid  procedure  call”)) 


A  procedure  call  statement  boils  down  to  an  expression  that  is  a  Stage  2  VHDL  name.  This 
expression  is  checked  by  ET,  and  must  have  a  VOID  basic  type. 

(SST12)  [  RETURN  opt-expr  J  (p)(c)(t) 

=  let  d  =  context(t)(p)  in 
let  tg  =  tag(d) 

and  cname  =  namef(d)  in 
(null(opt-expr) 

(tg  #  ^PROCEDURE* 

— ►  error 

(cat( “Return  without  expression  in  context  of  non-procedure:  ”) 

(cname)), 

c(t)), 

(tg  #  *FUNCTION* 

— ►  error 

(cat(“Retum  with  expression  in  context  of  non-function:  ”) 

(cname)), 

let  expr  =  opt-expr  in 
RT  [  expr  1  (p)(k)(t) 
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where 
k  =  A(w,e),t. 

(“‘(tdesc(w)6  extract-rtypes(signatiires(d))) 
error 

(cat (“Incorrect  return  expression  t3^e  in  function:  ”) 
(cname)), 

c(t)))) 

context(t)(path) 

=  let  d  =  t(path)(*UNIT*  )  in 

(d  =  *UNBOUND*  context(t)(rest(path)), 

(case  tag(d) 

(♦PROCEDURE*  *FUNCTION*  *PACKAGE*  )  —  t(rest(path))(last(path)), 
OTHERWISE  context(t)(rest(path)))) 

extract“rtypes(signatures) 

=  (null(signatures)“-H'  c, 

cons(second(rtype(hd(signatures))), extract- rtypes(ti(signatures)))) 


RETURN  statements  have  two  forms,  depending  on  the  PROCEDURE  or  FUNCTION  context  in 
which  they  can  appear.  Auxiliary  semantic  function  context  returns  the  descriptor  of  the 
smallest  subprogram  or  package  enclosing  the  program  text  whose  local  environment  is  at 
the  end  of  the  current  path.  It  is  first  determined  whether  the  RETURN  statement  is  in  the 
proper  context.  K  so,  then  if  the  RETURN  statement  has  an  expression,  its  basic  type  must 
be  equal  to  the  basic  type  of  the  result  type  of  the  function  in  which  it  appears. 

(SST13)  SST  |[  WAIT  ref*  opt-expii  opt-expr2  J  (p)(c)(t) 

=  let  Cl  =  At. let  d  =  lookup(t)(p)(*SENS*  )  in 
(-inull(sensitivity(d)) 

— ♦  error 

(cat(“WAIT  statement  ”)(seq-stat) 

(“  illegcil  in  process  with  sensitivity  list:  ”) 

(last(p))), 

let  C2  =  At.(niill(opt-expr2)— c(t), 
let  expr2  =  opt-expr2  in 
I  expr2  I  (p)(k2)(t) 
where 

k2  =  A(w2,e2),t2. 

(is-time?(w2)— ►  c(t2), 
error 

(cat( “Ill-typed  timeout  clause  in  WAIT  statement:  ") 
(seq-stat))))  in 
(null(opt-expri )— »■  C2(t), 
let  expri  =  opt-expri  in 
RT  [[expri  }  (p)(ki)(t) 
where 

ki  =  A(wi,ei),ti. 

(is-boolean?(wi )— *•  C2(ti), 
error 

(cat(“Non-boolean  condition  clause  in  WAIT  statement:  ”) 
(seq-stat)))))  in 

check- wait- refs(seq-st  at)  (ref* )  (p)  (ci )  (t) 

check-wait-refs(seq-stat)(ref*)(p)(c)(t) 

=  (null(  [[reP  ]  )-►  c(t), 
let  ref  =  hd(reP) 

and  Cl  =  At.check-wait-refs(seq-stat)(tl(reP))(p)(c)(t)  in 
check- wait-ref(seq-stat)  (ref )  (p)(ci )  (t)) 
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check- wait-ref (seq-st  at)  (ref  )(p)  (c)  (t) 
=  let  expr  =  ref  in 
ET  I  expr  J  (p)(k)(t) 
where 


k  =  A(w,e),t. 

let  d  =  tdesc(w)  in 

(d  =  ^UNBOUND*  — +  error(cat( “Unbound  identifier:  ”)(namef 

(d))), 


(is-sig?(w)-f  c(t), 
error 

(cat(  “Non-signal  ”)(ref) 

(“  in  sensitivity  clause  of  WAIT  statement:  ”) 
(seq-stat)))) 


Semantic  equation  SST13  specifies  tlie  static  semantics  of  the  WAIT  statement,  which  con¬ 
sists  of  a  sensitivity  list  ref",  an  optional  condition  opt-expri,  and  an  optional  timeout 
expression  opt-expr2.  First,  auxiliary  semantic  function  check-wait-refs  recursively  tra¬ 
verses  the  sensitivity  list,  checking  that  each  ref  denotes  a  declared  signal.  Next,  a  descriptor 
for  the  special  identifier  *SENS*  is  looked  up,  and  if  its  sensitivity  field  is  nonempty,  then 
the  WAIT  statement  illegally  appears  inside  a  PROCESS  statement  with  a  sensitivity  list.  If 
present,  the  condition  is  checked  to  have  basic  type  BOOLEAN.  Finally,  if  present,  the 
timeout  expression  is  checked  to  have  basic  type  TIME. 


6.5.9  Case  Alternatives 

(ATO)  AT  [  g  ]  (d)(p)(y)(t)  =  y(emptyset)(t) 

(ATI)  AT  I  case-alt*  case-alt  ]]  (d)(p)(y)(t) 

=  AT  I  case-alt*  |  (d)(p)(yi)(t) 
where 
yi  =  Ahijti. 

AT  I  case-alt  J  (d)(p)(y2)(ti) 
where 
y2  =  Ah2,t2. 

(ccise-overlap(d)((ha  ,h2)) 

— »•  error  ^ 

(cat( “Overlapping  case  alternatives  for  type:  ”) 
(namef(d))), 

y(case-union(d)((hi  ,h2)))(t2)) 

(AT2)  AT  I  CASECHOICE  discrete-range"*'  seq-stat*  J  (d)(p)(y)(t) 

=  DRT  |[  discrete-range"**  |  (d)(p)(yi)(t) 
where 
yi  =  Ahjti. 

SST  [  seq-stat*  |  (p)(c)(ti) 
where  c  =  At2.y(h)(t2) 

(ATS)  ^  [  CASEOTHERS  seq-stat*  1  (d)(p)(y)(t) 

=  SST  1  seq-stat*  ]  (p)(c)(t) 
where 

c  =  Ati.y((is-boolean-tdesc?(d)— ►  {FALSE  ,TRUE  }, 
is-bit-tdesc?(d)~-)-  {0,1}, 
is-integer-tdesc?(d)— »■  INT  , 
is-enumeration-tdesc?(d)— »■  ENUM  , 
error(cat( “Illegal  case  selector  type:  ”)(namef(d))))) 

(ti) 
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case-overlap(d)  (x,y) 

=  ((is-integer-tdesc?(d)A  (x  =  INT  V  y  =  INT  )) 

V  (is-enuineration-tdesc?(d)A  (x  =  ENUM  V  y  =  ENUM  )) 

— ^  ff, 

X  n  y  ^  emptyset) 
case-union  (d)  (Xjy ) 

=  (is-integer-tdesc?(d)A  (x  =  INT  V  y  =  INT  )  — ►  INT  , 

is-enumeration-tdesc?(d)A  (x  =  ENUM  V  y  =  ENUM  )  — ►  ENUM  , 
xUy) 


Semantic  function  AT  processes  each  case  alternative  in  turn,  beginning  with  the  last  one. 
As  the  case  selection  set  of  each  alternative  is  computed,  it  is  checked  for  disjointness  with 
the  union  of  the  selection  sets  of  the  preceding  alternatives.  If  disjoint,  then  the  union  of 
these  two  case  selection  sets  is  returned;  otherwise  an  error  is  raised. 

Note  that  the  case  selection  set  of  an  OTHERS  alternative  (represented  by  CASEOTHERS  in 
the  abstract  syntax)  is  always  disjoint  from  the  union  of  the  selection  sets  of  the  preceding 
alternatives j  because  (1)  a  CASE  statement  can  contain  at  most  one  such  alternative;  (2)  if 
such  an  alternative  is  present,  it  must  be  the  last  alternative;  and  (3)  the  case  selection  set 
of  an  OTHERS  alternative  is  the  relative  complement  of  the  union  of  the  case  selection  sets 
of  the  preceding  alternatives. 

AT  invokes  the  semantic  function  DRT  to  compute  the  case  selection  set  defined  by  the 
sequence  of  discrete  ranges  of  a  particular  case  alternative. 


6.5.10  Discrete  Ranges 

(DRTO)  DRT  [  e  1  (d)(p)(y)(t)  =  y (emptyset) (t) 

(DRTl)  DRT  |[  discrete- range  discrete-range*  |  (d)(p)(y)(t) 
=  DRT  [[  discrete-range  J  (d)(p)(yi)(t) 
where 
yi  =  Ahijtj. 

DRT  I  discrete-range*  |  (ci){p)(y2)(ti) 
where  y2  =  Ah2,t2.y(hi  U  h2)(t2) 


A  sequence  of  discrete  ranges  is  processed  in  order,  from  left  to  right. 

(DRT2)  DRT  [[  discrete- range  |  (d)(p)(y)(t) 

=  let  (direction, expr  1  ,expr2)  =  discrete-range  in 
RT  [expri  ]]  (p)(ki)(t) 
where 

ki  =  A(wi,ei),ti. 

(tdesc(wi)^  d  — ►  error(“Case  type  mismatch”), 
ei  =  *UNDEF*  — ►  error( “Non-static  case  expression”), 

RT  IT  expr2  ]  (p)(k2)(ti) 
where 

k2  =  A(w2,e2),t2. 

(tdesc(w2)^  d  — error  (“Case  type  mismatch”). 
e2  =  ’*'UNDEF*  --  error 

(“Non-static  case  expression”), 
y(mk-set(d)((direction,ei  ,e2)))(t2))) 
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mk-set(d)  (direction, ei  ,62) 

=  (case  tag(d) 

♦BOOL* 

— ►  (ei  =  e2  {ei}, 

(direction  =  TO  — »■  (ei  =  FALSE  A  62  =  TRUE  {FALSE  ,TRUE  },  emptyset), 

(ei  =  TRUE  A  e2  =  FALSE  ^  {TRUE  , FALSE  },  emptyset))), 

♦BIT* 

(ei  =  e2  -►  {ei}, 

(direction  =  TO  — ►  (ei  =  0  A  e2  =  1  {0,1}?  emptyset),  (ei  =  1  A  62  =  0  — »•  {1,0},  emptyset))), 

♦INT* 

— ^  (direction  =  TO 

(ei  <  e2  — ►  {ei}  U  mk-set(d)((direction,(ei+l),e2)),  emptyset), 

(^1  >  €2  “►  {ei}  U  mk-set(d)((direction,(ei— 1)562)),  emptyset)), 

♦ENUMTYPE* 

— ^  (direction  =  TO  — ►  mk-enum-set(literals(d))(ei)(e2), 
mk-enum-set(reverse(literals(d)))(ea  )(e2 )), 

OTHERWISE  ^  error(cat( “Illegal  CASE  expression  type  tag:  ”)(tag(d)))) 

mk-enum-set(id‘*'  )(idi )  (id2 ) 

=  let  m  =  position(idi)(id*^) 

and  n2  =  position(id2)(id'*')  in 

(n2  <  ni  e, 

nth-tl(ni)(reverse(nth-tl(length(id'^)— (n2+l))(reverse(id'^))))) 
nth-tl(n)(x)  =  (n  =  0  X,  nth-tl(n— l)(tl(x))) 

position  (a)  (x)  =  position-aux(a)(x)(0) 
position-anx(a)  (x)  (n) 

=  (null(x)— ►  ff,  (a  =  lid(x)-+  n,  position-aux(a)(tl(x))(l+n))) 
reverse(x)  =  reverse-anx(x)(e) 

reverse-aux(x)(y)  =  (niill(x)— ►  y,  reverse-aux(tl(x))(cons(hd(x),y))) 

Semantic  function  DRT  receives  a  case  selector  expression’s  basic  type  from  AT.  DRT 
detects  a  mismatch  between  the  basic  type  of  a  discrete  range  and  that  of  the  selector 
expression;  it  also  detects  the  presence  of  nonstatic  expressions  in  a  discrete  range.  Case 
selection  sets  are  constructed  by  the  function  mk-set  (“make  set”),  which  takes  a  type 
descriptor  and  a  pair  of  translated  static  expressions  that  represent  a  discrete  range  (that 
the  expressions  are  static  is  checked  in  Phase  1)  and  returns  the  corresponding  set  of  values. 


6.5.11  Waveforms  and  Transactions 

(WTl)  WT  IT  WAVE  transaction+  ]  (p)(k)(t)  =  TRT  [  transaction+  ]  (p)(k)(t) 

(TRTl)  TRT  f  transaction  transaction*  ]  (p)(k)(t) 

=  TRT  [[  transaction  |  (p)(ki)(t) 
where 

ki  =  A(wi,ei),ti. 

let  di  =  tdesc(wi)  in 
(nuli(transaction*)— ►  k((wi,ei  ))(ti), 
let  transaction^  =  transaction*  in 
TRT  [  transaction^  1  (p)(k2)(ti) 
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where 

k2  =  A(w2,e2),t2. 

let  d2  =  tdesc(w2)  in 
(-'inatch-types(di  ,d2 ) 

— ^  error 

(cat(‘‘Type  mismatch  for  waveform  transactions:  ”) 
(transaction)(hd(transaction^ ))), 
ei  5.^  *UNDEF*  A  e2  #  *UNDEF* 

(ei  >  e2 

— ►  error 

(cat(“Honascending  times  for  waveform  transactions:  ”) 
(trcinsaction)(hd(transaction^  ))), 
k((w2,e2))(t2)), 
k((w2,ei))(t2))) 

(TRT2)  TRT  [[  TRANS  expr  opt-expr  J  (p)(k)(t) 

=  RT  [expr  ]]  (p)(ki)(t) 
where 

ki  =  A(wi,ei),ti. 

(null(opt-expr)— ►  k((wi  ,0))(ti), 
let  expr2  =  opt-expr  in 
RT  l[expr2  ]  (p)(k2)(ti) 
where 

k2  =  A(w2,e2),t2. 

('^is-time?(w2) 

— ►  error 

(cat (“Transact ion  has  ill-typed  time  expression:  ’’) 
(tdesc(w2))), 
e2  #  *UNDEF* 

— ►  (e2  <  0 
— ►  error 

(cat (“Transaction  has  negative  time  expression:  ”) 

(e2)), 

k((wi,e2))(t2)), 

k((wi,e2))(t2))) 

6.5.12  Expressions 

(ETO)  ET  He  I  (p)(k)(t)  =  k((£,e))(t) 

(ETl)  ET  I  FALSE  I  (p)(k)(t)  =  k((mk-type( (CONST  VAL)  )(bool-type-desc()), FALSE  ))(t) 

(ET2)  KT  I  TRUE  1  (p)(k)(t)  =  k((mk-type( (CONST  VAL)  )(bool-type-desc()),TRUE  ))(t) 

(ET3)  ET  I  BIT  bitUt  J  (p)(k)(t) 

=  k((mk-type((CONST  VAL)  )(bit-type-desc()),B  ff  bitUt  I  ))(t) 

(ET4)  ET  [[  NUM  constant  J  (p)(k)(t) 

=  k((mk-type( (CONST  VAL)  )(mt-type-desc()),N  [  constant  J  ))(t) 

(ET5)  ET  [[  TIME  constant  time-unit  ]  (p)(k)(t) 

=  let  normaJized-constant  =  (case  time-unit 

FS  N  ([  constant  |  , 

PS  -H.  1000 xN  [[  constant  J  , 

NS  — »•  1000000  xN  [[  constant  |  , 
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US  — ►  lOOOOOOOOOxN  [[constzint  J  , 

MS  ^  lOOOOOOOOOOOOxN  [[constant  |  , 

SEC  1000000000000000 xN  [constant  |  , 

MIN  — ►  60x(lOOOOOOOOOOOOOOOxN  [[  constant  J  ), 

HR  3600x(1000000000000000xN  [[  constant  ]  ), 
OTHERWISE 
— ►  error 

(cat (“Illegal  unit  name  for  physical  type  TIME:  ”) 
(time-unit)))  in 

k((mk-type( (CONST  VAL)  )(time-type-desc()),normalized-constant))(t) 


(ET6)  ET  [  CHAR  constant  J  (p)(k)(t) 

=  let  expr  =  (CHAR  , constant)  in 

let  d  =  lookup(t)((STANDARD)  )(expr)  in 
k((type(d),idf(d)))(t) 


(ET7)  ET  I BITSTR  bit-lit*  1  (p)(k)(t) 

=  let  expr*  =  bit-lit*  in 
(null(expr*  ) 

k((mk-type((CONST  VAL)  )(lookup(t)(e)(BIT.VECTOR  ))  *UNDEF*  ))(t), 
]ist-type(expr* )  (p)  (t)  (vv) 

where  vv  =  Aw*. array- type(BIT -VECTOR  )(expr*)(w*)(t)(p)(k)) 

(ET8)  ET  [  STR  char-lit*  J  (p)(k)(t) 

=  let  expr*  =  char-lit*  in 

(null(expr*)-^  k((mk-type( (CONST  VAL)  )(lookup(t)(e)(STRING  ))  *UNDEF*  ))(t), 
iist-type(expr  * )  (p)  ( t )  ( vv) 

where  vv  =  Aw*,  array-type  (STRING  )(expr*)(w*)(t)(p)(k)) 


array- type(array- type-name)  (expr  *)  (w* )  (t)  (p)  (k) 

=  let  d  =  tdesc(hd(w*))  in 
(chk-array-type(d)  (tl(  w*) ) 

— >■  let  array-type-desc  =  axray-type-desc 

(new-array-type-name(array-type-name))(e)(p)(tt) 
(TO  )((NUM  1)  )((NUM  ,length(w*)))(d)  in 
k((mk-type(tmode(hd(w*)))(array-type-desc),*UNDEF*  ))(t)5 
error  (cat  (“Array  aggregate  of  inhomogeneous  type:  ”)(expr*))) 

chk-array-type(d)  (w* ) 

=  (null(w*)— ►  tt, 

match-types(d)(tdesc(hd(w*)))— ►  chk-array-type(d)(tl(w*)), 

ff) 


(ET9)  ET  I  REF  name  1  (p)(k)(t) 

=  name-type(name)(e)(p)(t)(v) 
where 

V  =  Aw.let  d  =  tdesc(w)  in 

(second(tmode(w))=  TYP 

— ►  error(cat(“¥rong  context  for  a  type:  ”)(namef(d))), 
tag(d)=  ^OBJECT*  k((type(d),value(d)))(t), 
tag(d)=  *ENUMELT*  ^  k((type(d),idf(d)))(t), 
k((w  *UNDEF*  ))(t)) 
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(ETIO)  ET  I  PAGGR  expr*  ]  (p)(k)(t) 

=  (length(expr*)=  1 

— ►  let  expr  =  hd(expr*)  in 
ETlexprI|(p)(k)(t), 
list-type(expr  *  )  (p)  (t )  ( vv) 

where  vv  =  A w*.array-type(* ANONYMOUS*  )(expr*)(w*)(t)(p)(k)) 


(ETll)  ET  |[  unary-op  expr  J  (p)(k)(t) 

=  RT  [expr]  (p)(ki)(t) 

where  ki  =  A{w,e),t.OTl  [[  unary-op  ]  (k)((w,e))(t) 

(ET12)  ET  [[  binary-op  expri  expr2  ]]  (p)(k)(t) 

=  RT  I  expri  1  (p)(ki)(t) 
where 

ki  =  A(wi,ei),t. 

RT  [[expr2  J  (p)(k2)(t) 
where  k2  =  A(w2,e2),t. 

OT2  F  binary-op  ])  (k)((wi,ei))((w2,e2))(t) 

(ET13)  ET  [[  relational-op  expri  expr2  ]  (p)(k)(t) 

=  KI  [  expri  I  (p)(ki)(t) 
where 

ki  =  A(wi,ei),t. 

RT  Iexpr2  J  (p)(k2)(t) 
where 

k2  =  A(w2,e2),t. 

PT2  I  relational-op  |  (k)((wi,ei))((w2,e2))(t) 

(RTl)RT[[exprl(p)(k)(t) 

=  j^[[exprl(p)(ki)(t) 
where 

ki  =  A(w,e),t. 

let  tm  =  tmode(w) 

and  d  =  tdesc(w)  in 
(second  (tm)=  ACC 

error(cat( “Non- value  (an  access):  ”)(namef(d))), 
second(tm)=  OUT 
— ►  error 

(cat( “Cannot  dereference  formal  OUT  parameter:  ”) 

(namef(d))), 

second (tm)=:  VAL  A  i&-void-tdesc?(d) 

— ►  err  or  (cat  (“Void  value:  ”)(namef(d))), 

let  wi  =  ((second(tm)=  AGR  (DUMMY  AGR)  ,  (DUMMY  VAL)  ),tdesc(w))  in 
k((wi,e))(t)) 


(OTl.l)  OTl  [[  unary-op  ]|  (k)(w,e)(t) 

=  let  d  =  tdesc(w)  in 
(argtypesl  (unary-op)  (d) 

— ►  k((restypel  (unary-op)  (d),resvall(unary-op)(e)(d)))(t), 

error  (cat  (“Argument  type  mismatch  for  unary  operator:  ”)  (unary-op))) 

argtypesl  (unary-op)  (d) 

=  (case  unary-op 

NOT  — >  is-boolean-tdesc?(d)V  is-bit-tdesc?(d), 

(PLUS  ,NEG  ,ABS  ) 

— ^  is-integer-tdesc?(d)V  is-time-tdesc?(d), 

OTHERWISE  error 

(cat (“Unrecognized  Stage  2  VHDL  unary  operator:  ”) (unary-op))) 
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argtypesl-'error(unaxy-op)  (d) 

=  error(cat( “Unary  operator  ”)(un2Lry-op)(“  not  implemented  for  type:  ”)(d)) 

restypel(unaxy-op)(d)  =  mk-type(  (DUMMY  VAL)  )(d) 

resvall  (unaxy-op)  (e)  (d) 

=  (e  =  *UNDEF*  *UNDEF*  , 

(case  unary-op 
NOT 

— ►  (is-boolecLn-tdesc?(d)-+  -»e, 
is-bit-tdesc?(d)^  invert-bit(e), 

*UNDEF*  ), 

PLUS  e, 

NEG  -e, 

ABS  — ►  abs(e), 

OTHERWISE  *UNDEF*  )) 
invert-bit(bitlit)  =  mk-bit-siinp>-syinbol((— bitlit)-|-l) 


ink-bit-simp-symbol(bitlit) 

=  (case  bitlit 

0  (BS  0  1)  , 

1  (BS  1  1)  , 

OTHERWISE —j*  error(cat( “Can’t  construct  simp  symbol  for  bit:  ”)(bitlit))) 


(OT2.1)  OT2  IT  binary-op  J  (k)(wi,ei)(w2,e2)(t) 

=  let  di  =  tdesc(wi) 

and  d2  =  tdesc(w2)  in 
(argtypes2  (binary-op)  ((di  ,d2)) 

— ►  k((restype2(bmary-op)((di,d2)), 

resval2((di  ,d2))  (binary-op)  ((ei  ,e2))))(t), 

error 

(cat( “Argument  type  mismatch  for  binary  operator:  ’’)(binary-op))) 

(OT2.2)  OT2  [[  relational-op  J  (k)(wi,ei)(w2,e2)(t) 

=  let  di  =  tdesc(wi) 

and  d2  =  tdesc(w2)  in 
(argtypes2  (relational-op)  ((di  ,d2 )) 

k((mk-type( (DUMMY  VAL)  )(bool-type-desc()), 
resval2((di  ,d2))  (relational-op)  ((ei  ,e2))))(t), 

error 

(cat (“Argument  type  mismatch  for  relational  operator:  ”) 
(relational-op))) 

argtypes2(op)(di  ,d2) 

=  (case  op 

(AND  ,NAND  ,OR  ,NOR  ,XOR  ) 

— ►  (case  hd(di) 

BOOLEAN  is-boolean-tdesc?(d2)V  argtypes2-error(op)(di)(d2)5 
BIT  — »•  is-bit-tdesc?(d2)V  argtypes2-error(op)(di)(d2), 

OTHERWISE  — »■  argtypes2-error(op)(di)(d2)), 

(ADD  ,SUB  ) 

— (case  hd(di) 

(INTEGER  ,REAL  ,TIME  )  di  =  d2  V  ajgtypes2-error(op)(di)(d2), 
OTHERWISE  — ►  argtypes2-error(op)(di)(d2)), 

MUL 
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— ►  (case  hd(di) 

(INTEGER  ,REAL  ) 

— ►  di  =  d2  V  is-time-tdesc?(d2), 

TIME 

— ►  is-integer“tdesc?(d2)V  is-real-tdesc?(d2), 

OTHERWISE  — ►  argtypes2-error(op)(di)(d2)), 

DIV 

— ►  (case  hd(di) 

(INTEGER  ,REAL  )  -^  di  =  d2  V  argtypes2-error(op)(di)(d2), 

TIME 

— ^  is-mteger-tdesc?(d2)V  is“real-tdesc?(d2), 

OTHERWISE  — ►  argtypes2-error(op)(di)(d2)), 

(MOD  ,REM  ) 

— ►  (case  hd(di) 

INTEGER  is-integer-tdesc?(d2)V  argtypes2-error(op)(di)(d2), 

OTHERWISE  ^  argtypes2-error(op)(di  )(d2)), 

EXP 

(case  lid(di) 

(INTEGER  ,REAL  )  — ►  is-iiiteger-tdesc?(d2)V  argtypes2-error(op)(di)(d2), 

OTHERWISE  — ►  argtypes2-error(op)(di)(d2)), 

CONCAT 

— ►  (is-bit-tdesc?(di ) 

— ►  iS“bit-tdesc?(d2)V  is-bitvector-tdesc?(d2), 

(is-bit-tdesc?(d2 ) 

— ►  is-bit-tdesc?(di  )V  is-bitvector-tdesc?(di ), 

(is-array~tdesc? (di )  A  is- array- tdesc? (d2 ) 

— ►  match- array-type-najnes(idf  (di  ),idf(d2)) 

A  match-types(elty(di),elty(d2)), 
argtypes2-error(op)(di  )(d2)))), 

(EQ  ,NE  )  — ^  match-types(di,d2)V  argtypes2-error(op)(di)(d2), 

(LT  ,LE  ,GT  ,GE  ) 

— >  (is-scalar-tdesc?(di  )A  is-sczdax-tdesc? (d2 ) 

— ►  match-types(di)(d2)V  argtypes2-error(op)(di)(d2), 
is-bitvector-tdesc?(di)A  is-bitvector-tdesc?(d2)--^  tt, 
argtypes2-error(op)(di  )(d2)), 

OTHERWISE  -H.  error(cat( ‘^Unrecognized  Stage  2  VHDL  operator:  ’’)(op))) 
argtypes2-error(op)(di  )(d2) 

=  error(cat( “Operator  ’’)(op)(“  not  implemented  for  pair  of  types:  ’’)(di)(d2)) 

restype2  (binary-op)  (di  ,d2) 

=  (case  binary-op 

(AND  ,NAND  ,OR  ,NOR  ,XOR  ,ADD  ,SUB  ,MOD  ,REM  ,EXP  )  mk-type( (DUMMY  VAL)  )(di), 
MUL 

— »■  (case  hd(di) 

(INTEGER  ,REAL  )  ^  mk-type( (DUMMY  VAL)  )(d2), 

TIME  mk-type((DUMMY  VAL)  )(di), 

OTHERWISE  error  (“Shouldn’t  happen!”)), 

DIV 

— >  (case  hd(di) 

(INTEGER  ,REAL  )  mk-type(  (DUMMY  VAL)  )(d2), 

TIME 

—V  (case  hd(d2) 

(INTEGER  ,REAL  )  ^  mk-type( (DUMMY  VAL)  )(di), 

TIME  mk-type(  (DUMMY  VAL)  )(int-type-desc()), 

OTHERWISE-^  error  (“Shouldn’t  happen!”)), 

OTHERWISE^  error  (“Shouldn’t  happen!”)), 
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CONCAT  ^  mk-type((DUMMY  VAL)  )(mk-coiicat-tdesc(di)(d2)), 

OTHERWISE 

— ►  error(cat( “Unrecognized  Stage  2  VHDL  binary  operator:  ”)(bmetry-op))) 

mk-concat-tdesc(di  )(d2) 

=  (is-bit-tdesc?(di  )V  is-bitvector“tdesc?(di) 

— ►  ztrray-type-desc 

(new-array-type-name(BIT_VECTOR  ))(e)(c)(tt)(direction(di  ))(lb(di  ))(e) 
(bit-type-desc() ) , 
let  idfi  =  idf(di)  in 
array-type-desc 

(new-array-type-name((consp(idfi)~^  hd(idfi),  idfi)))(e)(£)(tt) 

(diiection(di  ))(lb(di  ))(e){elty(di ))) 

resval2(di  ,d2 )  (op)  (el  ,e2) 

=  (el  =  *UNDEF*  V  e2  =  *UNDEF*  *UNDEF*  , 
let  tg  =  tag(di )  in 
(case  tg 
*BOOL* 

— ►  (case  op 

AND  — ►  el  A  e2, 

NAND  — »•  -i(el  A  e2), 

OR  el  V  e2, 

NOR  — -«(el  V  e2), 

XOR  —*■  (el  =  e2  — ►  ff,  tt), 

EQ  — ►  el  =  e2, 

NE  — ►  el  e2, 

LT  — ►  ->el  A  e2, 

LE  -lel  V  e2, 

GT  — ►  el  A  -ie2, 

GE  el  V  -ie2, 

OTHERWISE 
— ►  error 

(cat (“Unrecognized  Stage  2  VHDL  ^boolean’  binary  operator:  ”)(op))), 

*BIT* 

— ►  (case  op 
AND 

— ►  (el  =  1  A  e2  =  1  — ►  mk“bit-simp-syinbol(l),  mk-bit-simp-symbol(O)), 

NAND 

(el  =  0  V  e2  =  0  ink-bit-sinip-symbol(l),  mk-bit-simp-symbol(O)), 

OR 

(el  =  1  V  e2  =  1  mk-bit-simp-symbol(l),  mk--bit-simp-symbol(O)), 

NOR 

— ►  (el  =  0  A  e2  =  0  — ►  mk-bit-simp-symbol(l),  mk-bit«simp-symbol(0)), 

XOR  — ►  (el  =  e2  — »■  mk-bit-siinp-symbol(O),  mk-bit-sinip-symbol(l)), 

EQ  — el  =  e2, 

NE  el  #  e2, 

LT  el  =  0  A  e2  =  1, 

LE  el  =  0  V  e2  =  1, 

GT  el  =  1  A  e2  =  0, 

GE  — ►  el  =  1  V  e2  =  0, 

OTHERWISE 

error 

(cat( “Unrecognized  Stage  2  VHDL  ‘bit’  binary  operator:  ’’)(op))), 

(*INT*  *TIME*  ) 

— »•  (case  op 

ADD  — elH“e2, 
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SUB  ^  el-e2, 

MUL  elxe2, 

DIV  — ►  (e2  =  0  error( “Illegal  division  by  zero!”), 
el/e2), 

MOD  — ►  mod(el,e2), 

REM  — ►  rem(el,e2), 

EXP  — *■  el  *  e2, 

EQ  —  el  =  e2, 

NE  —  el  #  e2, 

LT  —  el  <  e2, 

LE  el  <  e2, 

GT  —  el  >  e2, 

GE  —  el  >  e2, 

OTHERWISE 
— ►  error 

(cat(“Uiirecognized  Stage  2  VHDL  ‘integer’  binary  operator:  ”)(op))), 
♦REAL*  — ►  error(cat(“Floating  point  operator  not  yet  implemented:  ”)(op)), 
*ENUMTYPE* 

— ►  (case  op 

EQ  —  el  =  e2, 

NE  — »■  el  e2, 

LT  — enum-lt(el)  (e2)  (liter  als(di )), 

LE  — ►  enuni-le(el)(e2)(literaLs(di)), 

GT  “+  enum-lt(e2)(el)(literals(di )), 

GE  — »■  enum-le(e2)(el)(literals(di )), 

OTHERWISE 

— ►  error 

(cat (“Unrecognized  Stage  2  VHDL  ‘enumeration  type’  binary  operator:  ”) 

(op)))> 

♦ARRAYTYPE*  ^  *UNDEF*  , 

OTHERWISE 

error  (cat  (“Unrecognized  Stage  2  VHDL  binary  operator  type:  ’’)(tg)))) 

enum-lt  (el )  (e2)  (enum-lits) 

=  let  elpos  =  position  (el)  (enum-lits) 

and  e2pos  =  position (e2)  (enum-lits)  in 
elpos  <  e2pos 

enum-le(e  1 )  (e2)  (enum-lits) 

=  let  elpos  =  position(el)(enum-lits) 

and  e2pos  =  position(e2)(enum-lits)  in 
elpos  <  e2pos 


6.5.13  Primitive  Semantic  Equations 

(Nl)  N  [[  constant  ]]  =  constant 


(Bl)  f  bitlit  I  =  bitlit 
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7  Interphase  Abstract  Syntax  Tree  Transformation 


Owing  to  the  relative  simplicity  of  the  previous  SDVS  VHDL  language  subset,  Stage  1 
VHDL,  Phases  1  and  2  of  the  Stage  1  VHDL  translator  were  able  to  use  the  same  abstract 
syntax. 

Stage  2  VHDL  is  a  considerably  more  sophisticated  language  subset.  Consequently,  it 
has  become  convenient  to  allow  Phase  2  of  the  Stage  2  VHDL  translator  to  employ  a 
dilferent  abstract  syntax  for  the  language  than  does  Phase  1,  for  reasons  discussed  below. 
Accordingly,  as  the  final  act  of  Phase  1  translation  of  a  given  Stage  2  VHDL  hardware 
description,  an  “interphase”  abstract  syntax  tree  transformation  is  performed  that  yields  a 
new  abstract  syntax  tree  (AST)  for  use  by  Phase  2.  This  transformation  does  not  modify 
the  original  AST.  Although  the  resulting  transformed  AST  may  resemble  the  original  in 
many  respects,  there  wHl  also  be  substantial  differences. 

We  should  recall  that  in  Phase  1,  when  abstract  syntax  trees  are  occasionally  injected 
into  the  TSE,  it  is  their  transformed  versions  that  are  used;  this  occurs  with  array  type 
descriptors  created  by  functions  process-sicdec  and  DT8,  subprogram  descriptors  created 
by  function  process-subprog-body,  and  *SENS*  (sensitivity  list)  descriptors  updated 
with  new  refs  by  function  SLT2. 


7.1  Interphase  Semantic  Functions 

The  abstract  syntax  tree  transformation  is  carried  out  by  principal  semantic  functions 
DFX,  ENX,  ARX,  PDX,  DX,  CSX,  SLX,  SSX,  AX,  DRX,  WX,  TRX,  MEX,  EX, 
and  RX,  with  the  aid  of  several  important  auxiliary  semantic  functions,  most  notably  the 
function  transform-name. 

Following  Phase  1  construction  of  the  tree-structured  environment  (TSE),  semantic  func¬ 
tion  DFX  is  applied  to  the  original  AST  to  initiate  the  transformation,  which  uses  (but 
does  not  modify)  the  TSE.  Once  the  AST  transformation  is  complete.  Phase  1  auxiliary 
semantic  function  phase2  is  invoked  with  the  transformed  AST  and  the  TSE  as  syntactic 
and  semantic  arguments,  respectively,  to  initiate  Phase  2  translation  (see  Section  8). 

Generally  speaking,  the  AST-transforming  semantic  functions  straightforwardly  reconstruct 
their  syntactic  arguments  from  their  transformed  immediate  syntactic  constituents,  with  the 
following  exceptions: 

•  transformation  of  PORT  declarations  into  SIGNAL  declarations 

•  “desugaring”  of  sensitivity  lists  in  PROCESS  statements: 
converting  them  into  explicit  final  WAIT  statements 

•  “desugaring”  of  concurrent  signal  assignment  statements: 
converting  them  into  equivalent  PROCESS  statements 

•  “desugaring”  of  secondary  units  of  physical  type  TIME: 
converting  them  into  the  base  unit  FS  (femtoseconds) 
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•  disambiguation  of  refs  as  either  array  references  or  subprogram  calls 

•  overload  resolution  between  BOOLEAN  and  BIT  operators 

•  overload  resolution  between  INTEGER  and  REAL  operators 

7.2  Transformed  Abstract  Syntax  of  Names 

An  important  case  in  point  is  the  translation  of  names,  e.g.  refs,  which  are  heavily  over¬ 
loaded:  the  Phase  1  semantic  function  name-type,  which  checks  them  and  determines 
their  type,  is  necessarily  complex.  Given  the  identical  abstract  syntax,  a  Phase  2  semantic 
function  for  refs  would  exhibit  analogous  complexity;  instead,  it  was  deemed  preferable  to 
transform  the  abstract  syntax  of  refs  into  a  form  more  suitable  for  Phase  2. 

Thus,  the  abstract  syntax  of  refs  used  in  Phase  1  is: 
ref  : ;  =  REF  name 

name  : :  =  id  I  name  id  I  name  expr* 


while  the  abstract  syntax  of  refs  used  in  Phase  2  is: 


ref  ::=  REF  basic-ref 
basic-ref  ::=  modifier**’ 
modifier  ::=  SREF  id'*'  id 
1  INDEX  eipr 
I  SELECTOR  id 
I  PARLIST  eipr* 


Although  not  reflected  in  the  syntax  shown  above,  a  basic-ref  (basic  reference)  must  begin 
with  a  simple  reference  SREF  id+  id,  which  has  for  convenience  been  classified  with  the 
modifiers.  The  id  is  the  root  identifier,  and  id+  is  the  TSE  access  path  for  this  ref.  The 
structures  following  this  root  basic  reference  are  called  modifiers.  An  INDEX  modifier 
denotes  an  array  reference,  a  SELECTOR  modifier  denotes  a  record  field  access  (not  used 
in  Stage  2  VHDL),  and  a  PARLIST  modifier  denotes  a  subprogram  caU.  This  linear 
arrangement  of  a  simple  reference  followed  by  zero  or  more  modifiers  makes  the  translation 
of  refs  in  Phase  2  relatively  straightforward,  as  the  components  of  a  ref  are  grouped  from 
the  left  and  thus  a  ref  can  be  translated  from  left  to  right. 
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7.3  Interphase  Semantic  Equations 


Most  of  the  semantic  equations  for  the  interphase  abstract  syntax  tree  transformation,  being 
straightforward,  will  be  displayed  without  comment. 


7.3.1  Stage  2  VHDL  Design  Files 

(DFXl)  DFX  I  DESIGN-FILE  id  pkg-decl*  pkg-body*  use-clause*  ent-decl  arch-body  ]  (t) 
=  let  po  =  %(e)(id)  in 

(DESIGN-FILE  ,id,DX  [  pkg-decl*  H  (po)(t),DX  [  pkg-body*  ]  (po)(t), 

DX  I  use-clause*  ]  (po)(t),^NX  [[  ent-decl  1  (po)(t), 

ARX  [[  arch-body  |  (po)(t)) 


7.3.2  Entity  Declarations 

(ENXl)  ENX  IT  ENTITY  id  port-decl*  ded*  opt-id  |  (p)(t) 

=  (ENTITY  ,id,PDX  [  port-decl*  1  (%(p)(id))(t),DX  [[  ded*  ]  (% (p) (id) )(t), opt-id) 


7.3.3  Architecture  Bodies 

(ARXl)  ARX  I  ARCHITECTURE  idi  idz  ded*  con-stat*  opt-id  ]  (p)(t) 

=  let  Pi  =  %(%(p)(id2))(idi)  in 

(ARCHITECTURE  ,idi  ,id2 ,DX  [[  ded*  ]  (pi)(t), CSX  I  con-stat*  ]  (pi)(t), opt-id) 


7.3.4  Port  Declarations 

(PDXO)  PDX|[el(p)(t)  =  e 


(PDXl)  PDX  [  port-decl  port-decl*  ]  (p)(t) 

=  consfPDX  [[  port-decl  J  (p)(t),PDX  [[  port-decl*  J  (p)(t)) 


(PDX2)  PDX  [[  DEC  PORT  id"*"  mode  type-mark  opt-expr  ]]  (p)(t) 
=  (DEC  ,SIG  jid"**, type-mark, 
let  expr  =  opt-expr  in 
secondfEX  |  expr  J  (p)(t))) 


(PDX3)  PDX  J  SLCDEC  PORT  id*^  mode  slice-name  opt-expr  |  (p)(t) 
=  (SLCDEC  ,SIG  ,id+, 

let  (type-mzirk, discrete-range)  =  slice-name  in 
(type-mark, DRX  [  discrete-range  ]  (p)(t)), 
let  expr  =  opt-expr  in 
secondfEX  |[  expr  |  (p)(t))) 
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7*3.5  Declarations 


(DX0)DXl6l(p)(t)  =  £ 

(DXl)  ^  I  decl  decl*  ]  (p)(t)  =  cons(DX  J  decl  ]  (p)(t),DX  f  ded*  ])  (p)(t)) 

(DX2)  DX  [[  pkg-ded  pkg-ded*  J  (p)(t) 

=  cons(DX  I  pkg-ded  1  (p)(t),DX  [[  pkg-ded*  }  (p)(t)) 

(DX3)  DX  I  pkg-body  pkg-body*  |  (p)(t) 

=  consQDX  I  pkg-body  J  (p)(t),DX  |  pkg-body*  ]  (p)(t)) 

(DX4)  DX  I  use-dause  use-dause*  J  (p)(t) 

=  consfDX  [[  use-dause  J  (p)(t),DX  [  use-dause*  |  (p)(t)) 

(DX5)  DX  [[  DEC  object-dass  id"^  type-mark  opt-expr  J  (p)(t) 

=  (DEC  , object-dass, id^ , type-mark, 
let  expr  =  opt-expr  in 
second(^  [[  expr  |  (p)(t))) 

(DX6)  DX  [[  SLCDEC  object-dass  id"^  slice-name  opt-expr  |  (p)(t) 

=  (SLCDEC  , object-class, id*^ , 

let  (type-mark, discrete-range)  =  slice-name  in 
(type-mark, DRX  [[  discrete-range  ]  (p)(t)), 
let  expr  =  opt-expr  in 
second(EX  I  expr  J  (p)(t))) 

(DX7)  DX  I  ETDEC  id  id+  ]]  (p)(t)  =  (ETDEC  ,id,id+) 

(DX8)  DX  J  ATDEC  id  discrete-range  type-mark  J  (p)(t) 

=  (ATDEC  ad,DRX  [  discrete-range  |  (p)(t), type-mark) 

(DX9)  M  I  PACKAGE  id  decl*  opt-id  ]  (p)(t) 

=  (PACKAGE  ,id,DX  [[ded*  }  (%(p)(id))(t), opt-id) 

(DXIO)  DX  I  PACKAGEBODY  id  ded*  opt-id  ]  (p)(t) 

=  let  d  =  t(p)(id)  in 

let  q  =  %(path(d))(id)  in 
(PACKAGEBODY  ,id,DX  [[ded*  ]  (q)(t), opt-id) 

(DXll)  DX  [[  PROCEDURE  id  proc-par-spec*  type-mark  |  (p)(t) 

=  (PROCEDURE  ,id,proc-par-spec* , type-mark) 

(DX12)  DX  [[  FUNCTION  id  func-par-spec*  type-mark  |  (p)(t) 

=  (FUNCTION  ,id,func-par-spec*, type-mark) 

(DX13)  DX  [[  SUBPROGBODY  subprog-spec  ded*  seq-stat*  opt-id  |  (p)(t) 

=  let  (tg, id, par-spec*, type-mark)  =  subprog-spec  in 
let  Pi  =  %(p)(id)  in 
(SUBPROGBODY  , 
let  decl  —  subprog-spec  in 

PX  I  decl  ]  (pl(t),I)X  I  ded*  |  (pi)(t),SSX  [[  seq-stat*  ]  (pi)(t), opt-id) 


(DXl4)  DX  [[  USE  dotted-name"*"  |  (p)(t)  =  (USE  jdotted-name*^) 
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7.3*6  Concurrent  Statements 


(CSXO)  CSX  lei  (p)(t)  =  e 

(CSXl)  CSX  I  con-stat  con-stat*  ]  (p)(t) 

=  consfCSX  I  con-stat  |  (p)(t),CSX  [[  con-stat*  ]  (p)(t)) 

(CSX2)  CSX  I  PROCESS  id  rer  decl*  seq-stat*  opt-id  ]  (p)(t) 

=  let  pi  =  %(p)(id)  in 

(PROCESS  ,id,DX  Idecl*  1  (pi)(t), 
let  seq-statj  =  (niill(seq-stat*)-^  ((WAIT  ,rer,e,e)), 

(null(ref*)--»-  seq-stat*, 
append(seq-stat*  ,((WAIT  ,ref*,e,e)))))  in 
SSX  l[seq-stati  J  (pi)(t), opt-id) 

(CSX3)  CSX  I  SEL-SIGASSN  delay-type  id  expr  ref  selected-waveform^  |  (p)(t) 

=  let  expr*  =  cons(expr, 

coUect-expressions-fcom-selected- waveforms 
(selected-waveform"*"))  in 
let  ref*  =  delete-duplicates 

(coUect-signals-firom-expr-list  (expr* )  (t)  (p)  (e) )  in 
let  case-alt"*"  =  construct-case-alternatives 

(ref)(delay-type)(sel€cted-waveform"*')  in 
let  case-stat  =  (CASE  , expr, case-alt"*")  in 
let  process-stat  =  (PROCESS  , id, ref*, e, (case-stat), id)  in 
CSX  |[  process-stat  J  (p)(t) 

(CSX4)  CSX  I  COND-SIGASSN  delay-type  id  ref  con d- waveform*  waveform  J  (p)(t) 
=  let  expr*  =  nconc 

(coUect-expressions-from-conditional-waveforms 
(cond- waveform  *) , 

collect-transaction-expressions(second(waveform)))  in 
let  ref*  =  delete-duplicates 

(coUect-signals-from-expr-list  (expr* )  (t)  (p)  (e) )  in 
(null(cond- waveform*) 

— ►  let  sig-assn-stat  =  (SIGASSN  ,delay-type, ref, waveform)  in 
let  process-stat  =  (PROCESS  , id, ref*, e, (sig-assn-stat), id)  in 
CSX  [  process-stat  ]]  (p)(t), 
let  cond-paxt"*"  =  construct-cond-parts 

(ref )  (delay-type)  (cond- waveform*) 
and  else-part  =  ((SIGASSN  , delay-type, ref, waveform))  in 
let  if-stat  =  (IF  , cond-paxt"*", else-part)  in 
let  process-stat  =  (PROCESS  ,id,ref*,e, (if-stat), id)  in 
CSX  I  process-stat  J  (p)(t)) 


7*3.7  Sensitivity  Lists 

(SLXO)SLXIel(p)(t)  =  £ 

(SLXl)  SLX  [  ref  rer  I  (p)(t)  =  consfSLX  I  ref]  (p)(t),SLX  [  rer  1  (p)(t)) 

(SLX2)  SLX  [  REF  name  ]  (p)(t) 

=  let  expr  =  ref  in 

second f EX  [[  expr  ]]  (p)(t)) 


91 


7.3.8  Sequential  Statements 

(SSXl)  SSX  |[  seq-stat  seq-stat*  |  (p)(t) 

==  cons(SSX  [[  seq-stat  ])  (p)(t),SSX  [[  seq-stat*  J  (p)(t)) 

(SSX2)  I  NULL  ])  (p)(t)  =  (NULL  ) 

(SSX3)  I VARASSN  ref  expr  ]  (p)(t) 

=  (VARASSN  , 
let  expro  =  ref  in 

second  (EX  [[  expro  1  (p)(t)),second(EX  [  expr  |  (p)(t))) 

(SSX4)  SSX  I  SIGASSN  delay-type  ref  waveform  J  (p)(t) 

=  (SIGASSN  , delay-type, 
let  expr  =  ref  in 

second  (EX  [[  expr  |  (p)(t)),WX  J  waveform  J  (p)(t)) 

(SSX5)  SSX  [[  IF  cond-part'*'  else-part  |  (p)(t) 

=  let  seq-stat*  =  else-part  in 

(IF  ,transform-if(cond-part‘^)(p)(t),SSX  [[  seq-stat*  |  (p)(t)) 

transform-if(cond-pajt*  )(p)(t) 

=  (null(cond-part*)— *■  e, 

let  (expr, seq-stat*)  =  hd(cond-paLrt*)  in 
cons((second(EX  f  expr  J  (p)(t)),SSX  [  seq-stat*  |  (p)(t)), 
transform-if(tl(cond-part*))(p)(t))) 

(SSX6)  S^  I  CASE  expr  case-alt+  J  (p)(t) 

=  (CASE  , second  (EX  J  expr  ]]  (p)(t)),AX  |[  case-alt  J  (p)(t)) 

(SSX7)  SSX  d  LOOP  id  seq-stat*  opt-id  |  (p)(t) 

=  (LOOP  , id, SSX  d  seq-stat*  J  (% (p) (id)  )(t), opt-id) 

(SSX8)  SSX  d  WHILE  id  expr  seq-stat*  opt-id  |  (p)(t) 

=  (WHILE  ,id,second(EX  d  expr  J  (%(p)(id))(t)),SSX  d  seq-stat*  |  (%(p) (id)) (t), opt-id) 

(SSX9)  SSX  d  FOR  id  ref  discrete-range  seq-stat*  opt-id  ]  (p)(t) 

=  (FOR  4d,  second  (EX  d  ref  ]]  (%(p)(id))(t)),DRX  f  discrete-range  J  (%(p)(id))(t), 

SSX  d  seq-stat*  ]]  (%(p)(id))(t), opt-id) 

(SSXIO)  SSX  d  EXIT  opt-dotted-name  opt-expr  |  (p)(t) 

=  (EXIT  , opt-dotted-name, 
let  expr  =  opt-expr  in 
second  (EX  d  expr  |  (p)(t))) 

(SSXll)  SSX  d  CALL  ref  ]  (p)(t) 

=  (CALL  , 

let  expr  =  ref  in 
second  (EX  d  expr  ][  (p)(t))) 

(SSX12)  SSX  d  RETURN  opt-expr  J  (p)(t) 

=  (RETURN  , 

let  expr  =  opt-expr  in 
second  (EX  d  expr  ]]  (p)(t))) 

(SSX13)  SSX  d  WAIT  rer  opt-expri  opt-expr2  ]  (p)(t) 

=  let  expri  =  opt-expri 

and  expr2  =  opt-expr2  in 

(WAIT  ,MEX  d  rer  |  (p)(t),second(EX  d  expn  ]  (p)(t)), 
second(EX  d  expr2  J  (p)(t))) 
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7.3.9  Case  Alternatives 

(AXO)AXIe]l(p)(t)  =  £ 

(AXl)  AX.  I  case-alt  case-alt*  J  (p)(t) 

=  cons  (AX  f  case-alt  |  (p)(t),AX  [[  case-alt’  ]  (p)(t)) 

(AX2)  ^  I  CASECHOICE  discrete-range+  seq-stat*  |  (p)(t) 

=  (CASECHOICE  .DUX  |  discrete-range+  1  (p)(t),SSX  I  seq-stat*  I  (p)(t)) 

(AX3)  AX  I  CASEOTHERS  seq-stat*  ]  (p)(t)  =  (CASEOTHERS  ,S^  I  seq-stat*  |  (p)(t)) 


7.3.10  Discrete  Ranges 

(DRXO)  DRX  [el  (p)(t)  =  e 

(DRXl)  DRX  [  discrete- range  discrete-range*  |  (p)(t) 

=  cons(DRX  [[  discrete-range  |  (p)(t),DRX  [  discrete-range*  |  (p)(t)) 

(DRX2)  DRX  I  discrete-range  |  (p)(t) 

=  let  (direction, expri  ,expr2)  =  discrete-range  in 

(direction, second(EX  [expri  I  (p)(t)),second(EX  [expr2  ]  (p)(t))) 


7.3.11  Waveforms  and  Transactions 

(WXl)  [  WAVE  transaction+  ]  (p)(t)  =  (WAVE  .TRX  [  transaction+  I  (p)(t)) 

(TRXl)  TRX  [  transaction  transaction*  |  (p)(t) 

=  (nuIl(transaction*)— >  (TRX  [transaction  |  (p)(t)), 
let  transaction^  =  transaction*  in 
cons(TRX  [  transaction  |  (p)(t),TRX  [  transaction]!’  J  (p)(t))) 

(TRX2)  TRX  [  TRANS  expr  opt-expr  ]  (p)(t) 

=  (TRANS  ,second(EX  [  expr  |  (p)(t)), 
let  expri  =  opt-expr  in 
second(EX  [expri  |  (p)(t))) 


7.3.12  Expressions 

(MEXO)  MEX  [el  (p)(t)  =  e 

(MEXl)  MEX  [  ref  rer  1  (p)(t)  =  cons  (second  (EX  [  ref  1  (pKtll.MEX  [  ref*  1  (p)(t)) 
(EXO)  EX  [el  (p)(t)  =  (void-type-desc(),e) 

(EXl)  EX  [  FALSE  1  (p)(t)  =  (bool-type-desc(), (FALSE)  ) 

(EX2)  EX  [  TRUE  1  (p)(t)  =  (bool-type-desc(),(TRUE)  ) 

(EX3)  ^  [  BIT  bitUt  1  (p)(t)  =  (bit-type-desc(),(BIT  ,bitlit)) 

(EX4)  EX  [  NUM  constant  1  (p)(t)  =  (int-type-desc(),(NUM  ,constant)) 
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(EX5)  EX  [[  TIME  constant  time-unit  ]]  (p)(t) 

=  let  normalized-constant  =  (case  time-unit 

FS  — ►  N  I  constant  | , 

PS  — ►  1000  xN  [[  constant  | , 

NS  1000000 xN  J  constant  |  , 

US  — ►  lOOOOOOOOOxN  [  constant  |  , 

MS  — ►  1000000000000 xN  [constant  |  , 

SEC  lOOOOOOOOOOOOOOOxN  [  constant  J  , 

MIN  60x(l000000000000000xN  [[  constant  I  ), 

HR  3600x(1000000000000000xN  [  constant  |  ), 
OTHERWISE 
— ►  error 

(cat( “Illegal  unit  name  ior  physiced  type  TIME:  ”) 
(time-unit)))  in 

(time-type-desc(),(TIME  ,normalized-constant,FS  )) 

(EX6)  EX  [[  CHAR  constant  J  (p)(t) 

=  let  d  =  lookup(t)((STANDARD)  )(expr)  in 
(type(d),(CHAR  , constant)) 

(EXT)  EX  [  BITSTR  bit-lit*  |  (p)(t)  =  (c,(BITSTR  ,bit-Ht*)) 

(EX8)  ^  I  STR  char-Ht*  ]  (p)(t)  =  (e,(STR  , char-lit*)) 

(EX9)  EX  [[  REF  name  |  (p)(t)  =  transform-name(name)(£)(e)(p)(t) 

transform-name(name)  ( w)  (astj  )(p)  (t) 

=  (nuli(w) 

— ►  let  wi  =  lookup2(t)(p)(e)(hd(name))  in 
transform-name 

(tl(name))(wi  )(((SREF  ,path(tdesc(wi )),idf(tdesc(wi  )))))(p)(t), 
let  d  =  tdesc(w)  in 
let  tg  =  tag(d)  in 

(null(name)— ►  transform-name-aux(tg)(d)(astJ ), 
let  X  =  hd(name) 

and  tm  =  tmode(w)  in 
(consp(x) 

let  astj  =  transform-list  (x)(p)(t)  in 
(second(tm)=  OBJ  A  is- array- tdesc?(d) 

— >  transform-name 

(ti(name))((tm,elty(d))) 

(nconc(ast;, ((INDEX  ,hd(astl)))))(p)(t), 

(second(tm)=  OBJ  A  is-array?(type(d))) 

V  (second(tm)G  (REF  VAL)  A  is-2Lrray-tdesc?(d)) 

— ►  transform-name 
(tl(name)) 

((second(tm)=  OBJ 

mk-type(tmode(type(d)))(elty(tdesc(type(d)))), 

mk-type(tm)(elty(d)))) 

(nconc(ast;, ((INDEX  ,hd(astn))))(p)(t), 
transform-name 

(tl(name))(extract-rtype(d)) 

(nconc(astS,((PARLIST  ,astr))))(p)(t)), 

((second(tm)=  OBJ  A  is-record?(type(d))) 

V  (second(tm)6  (REF  VAL)  A  is-record-tdesc?(d)) 
let  di  =  (second(tm)=  OBJ  — +  tdesc(type(d)),  d)  in 
let  d2  =  lookup-record-field(components(di  ))(x)  in 


transform-name 

(tl(name))(mk-type(tm)(d2))(nconc(eLsto, ((SELECTOR  ,x)))) 
(p)(t), 

s€Cond(tin)=  OBJ  A  is-record-tdesc?(d) 

— ►  let  d2  =  lookup-record-field (components (d))(x)  in 
ticinsform-name 

(tl(name))(mk-type(tm)(d2  ))(nconc(astJ , ((SELECTOR  ,x)))) 
(p)(t). 

let  wi  =  lookup-local(t)(9o(path(d))(idf(d)))(x)  in 
transform-name 

(tl(name))(wi)(((SREF  ,path(tdesc(wi)),idf(tdesc(wi)))))(p) 

(t))))) 

tr2msform-name-aux(tg)  (d)  (ast) 

=  (case  tg 

♦OBJECT*  (second(type(d)),(REF  ,ast)), 

♦ENUMELT*  (second(type(d)),(ENUMLIT  ,idf(d))), 
(♦PROCEDURE*  *FUNCTION* ) 

— (second (type(d)) 5  (REF  ,nconc(ast,((PARLIST  ,e))))), 

OTHERWISE  (d,(REF  ,ast))) 

transform-list  (x)  (p)  (t ) 

=  (niill(x)-+  e, 

let  expr  =  hd(x)  in 

cons(second(EX  [[  expr  |  (p)(t)), transform-list (tl(x))(p)(t))) 


The  functions  transform-name,  transform- name-aux,  and  transform-list  produce  the 
linear  form  of  the  basic  references  discussed  above. 

(EXIO)  EX  [  PAGGR  expr*  ]  (p)(t) 

=  (length  (expr  *  )=  1 

— ►  let  expr  =  hd(expr*)  in 
I  expr  J  (p)(t), 

(e,  (PAGGR  ,ex-paggr(expr*)(p)(t)))) 


(EXll)  EX  |[  uncury-op  expr  |  (p)(t) 

=  let  (d,e)  =  EX  [[  expr  |  (p)(t)  in 
(case  unary-op 
PLUS  ^  (d,e), 

NOT  (d,(scalar-op(unary-op)(d),e)), 

NEG  — ►  (d,(scalar-op(unary-op)(d),e)), 

ABS  — ►  (d,  (scalar-op  (unary-op)  (d),e)), 

OTHERWISE 
— ►  error 

(cat( “Unrecognized  Stage  2  VHDL  unary  operator:  ”) (unary-op))) 

(EX12)  EX  [[  binary-op  expri  expr2  |  (p)(t) 

=  let  (di,ei)  =  EX  |[  expri  1  (p)(t)  in 
let  (d2,e2)  =  EX  |[  expr2  J  (p)(t)  in 
(di  ,(scalcir-op(binary-op)(di ), 61,62)) 

(EX13)  EX  [  relational-op  expri  expr2  1  (p)(t) 

=  let  (di,ei)  =  lexpn  1  (p)(t)  in 
let  (d2,e2)  =  EX  [[  expr2  |  (p)(t)  in 
(bool-type-desc(),(scalar-op(relational-op)(di  ),ei  ,62)) 
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scalar-op(op)(d) 

=  (is-bit-tdesc?(d)V  is-bitvector-tdesc?(d)— ►  bits-op(op), 
is-real-tdesc?(d)— ►  re<tl-op(op), 
op) 


bits-op(op) 

=  (case  op 

EQ  EQ  , 

NE  NE  , 

LT  LT  , 

LE  LE  , 

GT  -V  GT  , 

GE  GE  , 

NOT  BNOT  , 

AND  BAND  , 

NAND  BNAND  , 

OR  — ►  BOR  , 

NOR  BNOR  , 

XOR  BXOR  , 

OTHERWISE  error  (cat  (Undefined  bitwise  operator:  )(op))) 


reaJ-op(op) 

=  (case  op 

EQ  EQ  , 

NE  NE  , 

LT  RLT  , 

LE  — ^  RLE  , 

GT  RGT  , 

GE  RGE  , 

NEG  RNEG  , 

ABS  RABS  , 

ADD  RPLUS  , 

SUB  RMINUS  , 

MUL  RTIMES  , 

DIV  ^  RDIV  , 

EXP  REXPT  , 

OTHERWISE  ^  error  (cat  (Undefined  ‘real’  operator:  )(op))) 


The  functions  scalar-op,  bits-op,  and  real-op  do  overload  resolution  between  INTEGER, 
BIT,  and  REAL  operators. 

(RXl)  I  expr  J  (p)(t)  =  [[  expr  ]]  (p)(t) 
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8  Phase  2:  State  Delta  Generation 


I 


If  Phase  1  of  the  Stage  2  VHDL  translator  completes  without  error,  then  after  the  interphase 
abstract  syntax  tree  transformation  has  been  accomplished  (see  Section  7),  Phase  2,  state 
delta  generation,  can  proceed.  Several  kinds  of  checks  have  already  been  performed  on  the 
hardware  description  in  Phase  1,  the  most  significant  being  the  detection  of  missing  prior 
declarations  of  items  such  as  variables  and  labels,  the  improper  use  of  names,  and  static 
type  checking.  Thus,  these  checks  do  not  have  to  be  duplicated  in  Phase  2. 

Phase  2  receives  from  Phase  1  the  transformed  abstract  syntax  tree  (AST)  for  the  hardware 
description,  together  with  the  tree-structured  environment  (TSE)  —  a  complete  record  of 
the  name/attribute  associations  corresponding  to  the  hardware  description’s  declarations 
and  whose  structure  reflects  that  of  the  description.  The  TSE  remains  fixed  throughout 
Phase  2.  It  contains  aU  definitions  needed  to  execute  its  corresponding  Stage  2  VHDL 
hardware  description,  and  Phase  1  has  ensured  that  only  that  portion  of  the  TSE  visible 
at  any  given  textual  point  of  the  description  can  be  accessed  during  Phase  2.  With  the  aid 
of  the  TSE,  Phase  2  incrementally  generates  SDVS  Simplifier  assertions  and  state  deltas 
(SDs). 

8.1  Phase  2  Semantic  Domains  and  Functions 

The  formal  description  of  Phase  2  translation  consists  of  semantic  domains  and  semantic 
functions,  the  latter  being  functions  from  syntactic  to  semantic  domains.  Compound  se¬ 
mantic  domains  are  defined  in  terms  of  primitive  semantic  domains.  Similarly,  primitive 
semantic  functions  are  unspecified  (their  definitions  being  understood  implicitly)  and  the 
remaining  semantic  functions  are  defined  (by  syntactic  cases)  via  semantic  equations. 

The  principal  Pha^e  2  semantic  functions  (and  corresponding  Stage  2  VHDL  language 
constructs  to  which  they  assign  meanings)  are:  DF  (design  files),  EN  (entity  declarations), 
AR  (architecture  bodies),  D  (declarations),  CS  (concurrent  statements),  SS  (sequential 
statements),  W  (waveforms),  TRM  and  TR  (transactions),  ME  and  MR  (expression 
lists),  E  and  R  (expressions),  T  (expression  types),  B  (bit  literals),  and  N  (numeric  literals). 

Each  of  the  principal  semantic  functions  requires  an  appropriate  syntactic  argument  —  an 
abstract  syntactic  object  (tree)  produced  by  the  interphase  abstract  syntax  tree  transforma¬ 
tion  (see  Section  7).  Most  of  the  semantic  functions  take  (at  least)  the  following  additional 
arguments: 

•  the  tree-structured  environment  (TSE)  generated  in  Phase  1; 

•  a  path,  indicating  the  currently  “visible”  portion  of  the  TSE; 

•  a  continuation,  specifying  which  Phase  2  semantic  function  to  invoke  next; 

•  a  universe  structure;  and 

•  an  execution  stack. 
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In  the  absence  of  errors,  the  Phase  2  semantic  functions  return  a  list  of  Simplifier  assertions 
and  SDs.  Moreover,  E  and  R  also  return  a  translated  expression  and  list  of  guard  formulas. 
Guard  formulas  are  inserted  in  the  precondition  of  generated  SDs  to  ensure  that  certain 
conditions  are  met  in  the  proof  in  which  the  SDs  appear.  For  example,  if  an  array  name  is 
indexed  by  an  expression,  then  Phase  2  generates  a  guard  formula  asserting  that  the  index 
value  is  not  out  of  range. 

The  execution  state  manipulated  by  Phase  2  translation  involves  two  components:  a  universe 
structure  (see  Section  8.2.2)  and  an  execution  stack  (see  Section  8.2.3).  An  analogy  with 
conventional  denotational  semantics  can  be  applied:  the  execution  state  corresponds  to 
the  store,  translated  expressions  and  guard  formulas  correspond  to  expression  values,  and 
SD/assertion  lists  correspond  to  non-error  final  answers. 

When  SDs  are  generated  by  a  semantic  function,  the  continuation  that  is  input  to  that 
function  plays  a  slightly  unconventional  role:  the  result  of  applying  to  an  execution  state 
the  continuation,  or  other  continuations  derived  from  the  continuation,  is  appended  to  the 
postconditions  of  the  generated  SDs.  In  the  absence  of  errors,  the  item  appended  represents 
a  list  of  SDs.  Such  a  continuation  is  evaluated  and  applied  only  when  the  SD  in  whose 
postcondition  it  appears  is  applied. 

For  example,  an  IF  statement  having  no  ELSE  part  generates  two  state  deltas:  one  for  the 
case  in  which  its  condition  evaluates  to  true,  the  other  for  the  false  case.  The  continuation 
for  the  true  case  represents  the  execution  of  the  body  of  the  IF  statement  succeeded  by 
the  execution  of  the  statement  following  the  IF  statement.  The  continuation  for  the  false 
case  skips  the  body,  and  proceeds  directly  to  the  statement  following  the  IF  statement. 
Whichever  of  these  two  SDs  is  applied  determines  which  continuation  is  evaluated  and 
applied  to  an  execution  state,  and  therefore  which  additional  state  deltas  are  subsequently 
generated. 

Figures  3  and  4  depict,  respectively,  the  semantic  domains  and  function  types  for  Phase  2 
of  the  Stage  2  VHDL  translator. 
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Primitive  Semantic  Domains 


Bool  =  {FALSE,  TRUE}  Simplifier  propositional  (boolean)  constants 

Bit  =  {(BS  0  1),  (BS  1  1)}  Simplifier  bit  constants  (length  1  bitstrings) 

Char  =  {(CHAR  0),  (CHAR  127)}  Simplifier  character  constants 

n  :  N  =  {0,  1,  2,  . . .}  Simplifier  natural  number  constants 


id  :  Id 
Sysid 

t  :  TEnv 
d  :  Desc 
V  :  UStruct 
stk  :  Stk 

e  :  TExpr 
trans  :  TTrans 
f,  guard  :  GForm 

sd  :  SD 
Assert 

Error 

Compound  Semantic  Domains 

elbl  :  Elbl  =  Id  +  Sysid 

p,  q:  Path  =  Elbl* 

qname:  Name  =  Elbl  (.  Elbl)* 

d  :  Dv  =  Desc 

r  :  Env  =  Id  (Dv  +  {*UNBOUND*}) 


identifiers 

system-generated  identifiers  (disjoint  from  Id) 

tree-structured  environments  (TSEs) 
descriptors  (see  Section  6.2) 
universe  structures  (see  Section  8.2.2) 
execution  stacks  (see  Section  8.2.3) 

translated  expressions 
translated  transactions 
lists  of  guard  formulas 

state  deltas 

SDVS  Simplifier  assertions 
error  messages 


TSE  edge  labels 
TSE  paths 
qualified  names 

denotable  values  (descriptors) 
environments 


Tmode  =  {PATH}  x  Id*  -1-  type  modes 

({CONST,  VAR,  SIG,  DUMMY}  x 
{VAL,  OUT,  REF,  OBJ,  ACC,  TYP}) 


w  :  Type  =  Tmode  x  Desc 

u  :  Dc  =  UStruct  — >  Stk  Ans 

c  :  Sc  =  Dc 

k  :  Ec  =  (TExpr  x  GForm)  Sc 
h  :  Me  =  (TExpr*  x  GForm*)  ^  Sc 
wave-cont  :  Wc  =  (TTrans*  x  GForm*)  — ^  Sc 
trans-cont  ;  Tc  =  (TTrans  x  GForm)  — >  Sc 

Ans  =  (SD  -t-  Assert)*  -f  Error 


types 

declaration  &  concurrent  statement  continuations 

sequential  statement  continuations 

expression  continuations 

expression  list  continuations 

waveform  continuations 

transaction  continuations 

final  answers 


Figure  3:  Phase  2  Semantic  Domains 
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DF  :  Design  — >■  TEnv  ^  Ans  design  file  dynamic  semantics 

EN  :  Ent  — TEnv  Path  ^  Dc  Dc  entity  declaration  dynamic  semantics 

AR  :  Arch  — >■  TEnv  — >  Path  — Dc  — >•  Dc  architecture  body  dynamic  semantics 

D  :  Dec*  TEnv  — Path  ^  Dc  — >■  Dc  declaration  dynamic  semantics 

CS  :  CStat*  TEnv  ^  Path  ^  Dc  ^  Dc  concurrent  statement  dynamic  semantics 

SS  ;  SStat*  — >■  TEnv  — Path  — >■  Sc  Sc  sequential  statement  dynamic  semantics 

W  :  Wave  — >  TEnv  — Path  Wc  ^  Sc  waveform  dynamic  semantics 

TRM  :  Trans*  —>■  TEnv  — >■  Path  — >  Wc  — »  Sc  transaction  list  dynamic  semantics 

TR  :  Trans  ^  TEnv  — >  Path  — >  Tc  Sc  transaction  dynamic  semantics 

ME  :  Expr*  ^  TEnv  -4  Path  Me  — >  Sc  expression  list  dynamic  semantics  (l-values) 

MR  :  Expr*  TEnv  Path  Me  — Sc  expression  list  dynamic  semantics  (r-values) 

E  :  Expr  TEnv  Path  — >  Ec  — Sc  expression  dynamic  semantics  (l-values) 

R  :  Expr  — TEnv  ^  Path  — j-  Ec  Sc  expression  dynamic  semantics  (r-value$) 

T  :  Expr  — >•  TEnv  — Path  — >  Desc  expression  types 

B  :  BitLit  ^  Bit  bit  values  of  bit  literals  (primitive) 

N  :  NumLit  N  integer  values  of  numeric  literals  (primitive) 

Figure  4:  Phase  2  Semantic  Functions 
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8.2  Phase  2  Execution  State 


As  mentioned  in  Section  8.1,  the  execution  state  manipulated  by  Phase  2  translation  consists 
of  a  universe  structure  and  an  execution  stack.  The  purpose  of  this  section  is  to  elucidate 
the  nature  and  role  of  these  aspects  of  the  execution  state. 


8.2.1  Unique  Name  Qualification 

Except  for  quantification,  the  language  of  state  deltas  has  no  scoping,  i.e.,  it  is  “fiat.”  Even 
with  quantification,  the  state  deltas  generated  by  the  Stage  2  VHDL  translator  certainly 
do  not  have  a  scoping  structure  that  naturally  parallels  the  scopes  of  their  corresponding 
Stage  2  VHDL  hardware  description.  Furthermore,  even  if  there  were  such  a  correspondence 
between  source  (Stage  2  VHDL)  and  target  (state  deltas)  scopes,  it  would  still  be  convenient 
to  generate  unique  names  for  the  SDVS  user  to  use  in  proofs. 

For  example,  a  PROCESS  statement  may  contain  a  declaration  of  a  variable  x  of  the  same 
name  as  a  signal  in  the  enclosing  architecture  body.  The  inner  instance  of  x  can  be  distin¬ 
guished  from  the  outer  instance  by  prefixing  or  qualifying  it  with  the  name  (user-supplied 
or  system-generated)  of  the  process  in  which  the  inner  instance  is  declared.  We  shall  call 
such  a  qualified  name,  derived  from  the  static  structure  of  the  Stage  2  VHDL  hardware 
description,  a  statically  uniquely  qualified  name  or  SUQN .  At  the  beginning  of  Phase  2 
translation  (after  the  interphase  AST  transformation  —  see  Section  7),  the  SUQN  of  any 
object  (for  which  such  a  name  maies  sense)  is  recorded  in  the  qid  field  associated  with  the 
object  in  the  TSE. 

Another  important  kind  of  unique  name  qualification  is  based  on  the  dynamic  execution 
of  a  Stage  2  VHDL  description.  A  program  unit  can  be  reentered,  either  by  repetition  or 
recursion,  and  local  declarations  in  the  reentered  program  will  be  re-elaborated,  creating 
new  dynamic  instances  of  entities  that  cannot  be  distinguished  on  the  basis  of  static  program 
structure.  In  this  case  new  names  that  axe  distinct  dynamic  instances  of  the  same  statically 
uniquely  qualified  name  axe  sufficient  to  enable  the  SDVS  user  to  distinguish  all  instances 
of  names  for  use  in  proofs.  The  separate  dynamic  instances  of  a  name  axe  indicated  by 
appending  !n  to  it,  where  n  is  a  dynamic  instance  index  for  that  name  (e.g.,  a.x,  a.x!2, 
a.x!3, . . . ,  where  a.xll  is  simply  denoted  a.x).  These  names  axe  called  dynamically  uniquely 
qualified  names  (DUQNs). 

Only  statically  and  dynamically  uniquely  qualified  names  appear  in  the  state  deltas  gener¬ 
ated  by  Phase  2  translation. 


8.2.2  Universe  Structure  for  Unique  Dynamic  Naming 

Given  that  there  may  be  several  dynamic  instances  of  the  same  SUQN  in  a  Stage  2  VHDL 
hardware  description.  Phase  2  translation  employs  a  mechanism  called  a  universe  structure 
(together  with  functions  that  access  and  manipulate  it)  to  manage  the  creation  of  new 
dynamic  instances  of  each  distinct  SUQN,  as  well  as  to  ensure  that  the  correct  dynamic 
instance  of  each  SUQN  is  available  at  any  given  time. 
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A  universe  structure  consists  of  four  components: 


universe  name  : 

The  name  of  the  current  universe.  A  universe  name  has  the  form  z\u\n,  where  z  is 
the  name  of  the  main  program  and  n  is  the  current  universe’s  ordinal  number  (n  = 
1,2,...  ). 

universe  counter  : 

The  current  universe’s  ordinal  number. 

universe  stack  : 

A  stack  of  universe  names  used  to  save  and  restore  prior  universes  in  accordance  with 
the  changes  of  environment  in  a  Stage  2  VHDL  hardware  description. 

universe  variables  : 

The  current  universe’s  environment  of  statically  and  dynamically  uniquely  qualified 
names.  This  is  a  list  of  entries  of  the  form  (SUQN,  ordinal- number,  ordinal- 
stack),  one  for  each  distinct  SUQN.  The  ordinal  number  denotes  the  most  recently 
created  dynamic  instance  of  that  SUQN.  The  ordinal  stack  is  a  stack  of  this  SUQN’s 
ordinal  numbers,  whose  top  element  denotes  the  current  dynamic  instance  of  this 
SUQN.  This  stack  is  used  to  save  and  restore  prior  dynamic  instances  of  this  SUQN  in 
accordance  with  the  changes  of  environment  in  a  Stage  2  VHDL  hardware  description. 


mk-initiaJ-uni  verse  ( z ) 

=  let  uname  =  catenate(z,“\u”,l)  in 

make-universe-dat  a(  uname,  1 ,  (uname)  ,((z,l,(l)))) 

make-universe”data(uname,ucounter,ustack,uvars) 

=  (uname, ucounter,ustack,uvars) 

universe-name(v)  =  hd(v) 

universe-counter  (v)  =  second  (v) 

umverse-stack(v)  =  third(v) 

universe-vars(v)  =  fourth(v) 

push-universe(v,z,suqn*) 

=  let  ucounter  =  l-l-universe-counter(v)  in 
let  uname  =  catenate(z,“\u”, ucounter)  in 
let  ustack  =  cons( uname, uni verse-stack(v))  in 
make-universe-data 

(uname, ucounter, ustack, push-universe- vaTs(suqii  * , universe- vars(v))) 

push-universe- vars(suqn*  ,vaj:s) 

=  (null(suqn*)— ►  vars, 

let  suqn  =  hd(suqn*)  in 
let  V  =  assoc(suqn,vars)  in 

(null(v)— push-uni  verse- vars(tl(suqn*), cons  (init-var(suqn),  vars)), 
push-universe- vars(tl(suqn  * )  ,cons(push-  var  ( v) ,  vars ) ) ) ) 
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push-vax(v) 

=  let  n  =  next-var(second(v))  in 
(hd(v),n,cons(n,third(v))) 

next-var(n) 

=  (iiumberp(n)— ►  n+1, 

(symbolp(ii)— ►  mk-exp2(ADD 
let  m  =  tliird(n)  in 

(numberp(m)— ►  mk-'exp2(ADD  ,second(n),m+l), 
mk-exp2(ADD  ,second(n),mk-exp2(ADD  ,m,l))))) 

init-var(suqn)  =  (suqiijl,(l)) 

pop-umverse(v)(suqn*  ) 

=  let  ustack  =  tl(umverse**stack(v))  in 
let  uname  =  hd(ustack)  in 
make- universe-data 

(uname, universe-couiiter(v) , ustack, 
pop-universe- vars(suqn*  )  (universe- vars  ( v) ) ) 

pop-universe- vars(suqn*  ,vars) 

=  (nuD(suqn*)— ►  vars, 

let  suqn  =  hd(suqn'^)  in 
let  V  =  assoc  (suqn,  vars)  in 
pop-universe- vars  ( tl(suqn*  ),cons(pop-var(v)  ,vars))) 

pop-vax(v)  =  (hd(v), second  (v),tl(third(v))) 

get-qualified-ids  (suqn* )( v) 

=  (null(suqn*)-^'  e, 

cons(qualified-id(hd(suqn*  ))(v),get-qualified-ids(tl(suqn* ))  (v))) 

qualified-id(suqn)  (v) 

=  let  vars  =  universe- vars  (v)  in 

let  suqn-triple  =  assoc(suqn,vars)  in 
(suqn-triple 

— »■  let  n  =  hd(third (suqn-triple))  in 
name-quaJ[ified-id(suqn)  (n) , 
name-quaJified-id  (suqn)  ( 1 ) ) 

name-quaJified-id  (suqn)  (n) 

=  (new-declajations()-+  (PLACELEMENT  ,suqn,n), 

(n  =  1  — ►  suqn,  catenate(suqn,“!’’,n))) 


Currently,  the  only  part  of  the  universe  structuie  that  is  actually  used  for  dynamic  name 
qualification  is  the  universe  variables  component.  Each  time  a  program  unit  that  may 
have  a  declarative  part  (packages,  entities,  architectures,  processes,  subprogram  bodies)  is 
entered,  the  current  universe  is  saved  and  an  updated  universe  structure  is  created  by  push- 
universe.  The  universe  structure’s  counter  (ordincd)  is  incremented  by  one,  a  corresponding 
new  universe  name  is  created,  and  the  old  universe  name  is  pushed  onto  the  universe  stack. 
In  the  universe  variables  component  of  the  universe  structure,  the  triple  for  each  SUQN 
corresponding  to  each  name  declared  in  the  unit’s  declarative  part  (except  types)  is  updated: 
the  value  of  its  ordinal  is  incremented  by  one  and  this  new  ordinal  value  is  pushed  onto  the 
ordinal  stack  of  the  SUQN’s  triple.  Whenever  any  SUQN  needs  to  be  dynamically  uniquely 
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qualified,  the  top  element  of  its  ordinal  stack  is  used  to  find  the  index  of  the  current  dynamic 
instance  of  that  SUQN. 

When  such  a  program  unit  is  exited,  pop-universe  restores  the  universe  name  by  popping 
it  from  the  universe  stack.  The  ordinal  stack  of  the  triple  of  the  SUQN  of  each  (non-type) 
name  declared  in  this  unit  is  popped,  restoring  the  current  dynamic  qualification  of  that 
SUQN  to  a  former  value. 

The  functions  get-qualified-ids,  qualified-id,  and  name-qualified-id  accomplish  the 
dynamic  qualification  of  SUQNs  relative  to  a  universe  structure. 


8. 2,3  Execution  Stack 

The  elements  of  the  execution  stack  are  descriptors  that  contain  information  to  control  nor¬ 
mal  returns  and  exits  from  program  units,  as  well  as  the  undeclaration  of  objects,  packages, 
subprograms,  and  formal  parameters. 

There  are  several  kinds  of  execution  stack  descriptors,  and  more  detailed  explanations  of 
their  roles  will  be  provided  at  the  points  in  the  semantics  where  they  are  used.  For  now,  we 
note  that  each  descriptor  has  four  components:  an  identifying  tag\  an  identifier^  identifier 
sequence^  or  fully  qualified  name  that  associates  the  descriptor  with  some  program  unit;  a 
path  that  may  replace  the  current  path  to  effect  a  change  of  environment;  and  a  function , 
which  may  be  a  continuation  or  continuation  transformer^  that  will  effect  a  change  of  control 
and  environment  corresponding  to  the  descriptor's  purpose. 


stack  bottom  : 

<  *STKBOTTOM*,  id,  c,  €  > 

This  descriptor  is  the  execution  stack  ‘‘bottom  marker,”  used  to  terminate  model 
execution  and  to  prevent  execution  stack  underflow.  The  identifier  id  is  the  name  of 
the  Stage  2  VHDL  design  file. 

package  body  exit  : 

<  *PACKAGE-BODY-EXIT*,  id,  p,  u  > 

This  descriptor  is  pushed  onto  the  execution  stack  just  prior  to  the  elaboration  of 
a  package  body.  The  identifier  id  is  the  package  name,  and  u:  Dc  is  a  declaration 
continuation  that  will  continue  execution  (most  likely  elaboration)  at  the  package 
body’s  successor  in  the  environment  denoted  by  p. 

subprogram  return  : 

<  *SUBPROGRAM-RETURN*,  id,  p,  c  > 

This  descriptor  is  pushed  onto  the  execution  stack  after  a  subprogram  (procedure 
or  function)  is  entered,  but  just  before  the  elaboration  of  the  subprogram’s  local 
declarations.  The  identifier  id  is  the  subprogram  name,  and  c:  Sc  is  a  continuation 
that  will  continue  execution  at  the  successor  of  the  subprogram  call  in  the  environment 
denoted  by  p. 
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loop  exit  : 


<  *LOOP-EXIT*,  id,  p,  c> 

This  descriptor  is  pushed  onto  the  execution  stack  when  a  loop  statement  (LOOP, 
WHILE,  or  FOR)  is  entered.  The  identifier  id  is  the  loop  label,  and  c:  Sc  is  a  continuation 
that  will  continue  execution  at  the  loop’s  successor  in  the  environment  denoted  by  p. 

block  exit  : 

<  *BLOCK-EXIT*,  id,  p,  c> 

This  descriptor  is  pushed  onto  the  execution  stack  just  before  the  elaboration  of  a  FOR 
loop’s  iteration  parameter,  which  implicitly  establishes  a  block  scope.  The  identifier 
id  is  the  FOR  loop  label,  and  c:  Sc  is  a  continuation  that  will  continue  execution  at 
the  FOR  loop’s  successor  statement  in  the  environment  denoted  by  p. 

begin  marker  : 

<  *BEGIN*,  id,  p,  c> 

This  descriptor  is  pushed  onto  the  execution  stack  immediately  after  the  local  declara¬ 
tions  of  a  subprogram,  or  the  iteration  parameter  of  a  FOR  loop,  have  been  elaborated. 

undeclaration  : 

<  *UNDECLARE*,  id+,  p,  g  > 

This  descriptor,  pushed  onto  the  execution  stack  when  a  subprogram  is  called,  enables 
the  eventual  explicit  undeclaration  (upon  subprogram  exit)  of  the  subprogram’s  for¬ 
mal  parameters  and  other  locally  declared  objects.  The  identifier  list  id"*"  names  the 
objects  to  be  undeclared,  and  g:  Sc  — *■  Sc  is  a  continuation  transformer  which,  after 
carrying  out  the  explicit  undeclaration  specified  in  g  (thereby  popping  this  *UNDE- 
CLARE*  descriptor  from  the  execution  stack),  continues  execution  via  its  continu¬ 
ation  argument. 


105 


8,3  Special  Functions 


Certain  functions  appearing  in  the  semantic  specification  of  Phase  2  translation  are  not 
defined  denotationally,  for  either  of  two  reasons:  (1)  their  denotational  description  is  too 
cumbersome  or  not  well  understood,  or  (2)  they  are  used  to  construct  SDVS-dependent 
representations  of  expressions  or  formulas. 

These  functions,  implemented  directly  in  Common  Lisp,  are  described  below. 


8.3*1  Operational  Semantic  Functions 

To  understand  Phase  2  translation,  it  is  important  to  recognize  that  in  defining  the  seman¬ 
tics  of  the  VHDL  simulation  cycle,  the  VHDL  translator  involves  a  significant  operational 
component.  This  is  to  be  distinguished  from  the  semantics  of  sequential  statements  within 
processes,  which  the  translator  defines  in  a  primarily  denotational  manner. 

We  are  referring  here  to  our  strategy,  explained  in  Section  2,  of  designing  aspects  of  a 
simulator  kernel  into  the  Stage  2  VHDL  translator.  After  application  of  the  state  deltas 
specifying  the  behavior  of  one  execution  cycle  for  the  active  processes,  the  translator  is 
responsible  for: 


•  determining  the  next  VHDL  clock  time  at  which  a  driver  becomes  active  or  a  process 
resumes; 

•  advancing  the  SDVS  state  to  this  new  time;  and 

•  generating  the  state  delta  that  specifies  the  next  sequential  statement  in  the  first 
resuming  process  for  the  new  execution  cycle. 


After  a  given  resuming  process  suspends,  its  continuation  is  the  textuaUy  next  resuming 
process. 

It  is  the  internal  translator  machinery  to  perform  these  tasks  that  is  operationally  defined 
—  much  of  it  embodied  in  a  portion  of  tlie  translator  that  is  directly  coded  in  Common  Lisp, 
rather  than  described  by  semantic  equations.  The  names  of  the  Common  Lisp  functions 
serving  this  purpose  are  listed  below. 

make-vhdl-process-elaborate 

make-vhdl-begin-model-execution 

make- vhdl-try- resume- next-process 

make-vhdl-process-suspend 

fi  nd-signal-  struct  ure 

name-driver 

init-scalar-signal 
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init-array-signal-to 

init-array-signal-downto 

mk-element-waves-aux 

get-loop-enum-param-vals 

eval-expr 

8.3.2  Constructing  State  Deltas 

The  construction  of  SDs  is  specified  via  functions  mk-sd(z)(pre,  comod,  mod,  post)  and 
mk-sd-decl(z)(pre,  comod,  mod,  post),  which  take  five  arguments:  the  design  file  name 
z  (if  p  is  the  current  path,  this  is  always  hd(p))  and  representations  of  the  precondition, 
comodification  list,  modification  list,  and  postcondition  of  the  SD  to  be  constructed. 

These  functions  are  iised  to  represent  the  construction  of  SDs  without  specifying  their  exact 
representation,  which  is  SDVS-dependent  and  not  given  here.  The  pre-  and  postconditions 
of  an  SD  are  lists  of  formulas,  each  of  which  represents  a  formula  that  is  the  logical  conjunc¬ 
tion  of  the  formulas  in  this  list.  If  the  precondition  and  comod  list  arguments  of  mk-sd 
and  mk-sd-decl  are  e,  then  the  precondition  and  comod  list  of  the  constructed  SD  are 
(TRUE)  and  (ALL),  respectively.  Otherwise,  the  given  arguments  are  used  directly  in 
the  SD.  The  postcondition  may  contain  an  SD,  which  is  usually  represented  as  a  statement 
continuation  applied  to  an  execution  stack, 

mk-sd  and  mk-sd-decl  are  almost  the  same,  the  only  difference  being  that  an  SD  cre¬ 
ated  by  mk-sd-decl  is  given  a  special  tag  that  identifies  its  association  with  declaration 
elaboration  rather  than  statement  execution. 

For  technical  reasons,  the  comod  list  of  every  SD  is  (ALL)  and  the  mod  list  of  every  SD 
must  be  nonempty.  To  ensure  that  an  SD’s  mod  list  is  never  empty,  mk-sd(z)(  . . .  )  will 
always  prefix  z\pc  to  its  mod  list  argument,  where  z\pc  is  a  unique  place  (represented 
by  a  system  identifier)  in  which  z  is  the  name  of  the  Stage  2  VHDL  hardware  description 
being  translated.  This  unique  place  is  the  name  of  a  program  counter  whose  value  implicitly 
changes  when  any  SD  is  applied.  This  program  counter  place  does  not  make  any  other  kind 
of  appearance  in  a  translated  Stage  2  VHDL  hardware  description. 

The  notation  of  state  deltas  requires  that  certain  symbols  sometimes  be  prefixed  to  uniquely 
qualified  names:  the  dot  (.)  and  pound  (#)  symbols.  The  functions  dot  and  pound, 
applied  to  uniquely  qualified  names,  accomplish  this. 

dot(placeiiame)  =  (DOT  ,placename) 

pound(placename)  =  (POUND  ,placename) 

Finally,  the  two  functions  fiixed-characterized-sds  and  subst-vars  are  employed  by  the 
Phase  2  semantics  of  procedure  calls  to  implement  the  SDVS  offline  characterization  mech¬ 
anism  [16,  17],  which  will  be  incorporated  in  Stage  3  VHDL. 
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8 . 3  •  3  Error  Report  ing 


The  few  kinds  of  errors  that  can  occur  in  Phase  2  are  reported  by  the  functions  impl-error 
and  execution-error. 

The  function  impl-error  is  used,  for  example,  to  report  invalid  arguments  passed  to  the 
low-level  utility  functions  mk-scalar-rel,  mk-expl,  and  mk-exp2,  although  this  should 
never  occur. 

The  function  execution-error  is  used  to  report  execution  errors  such  as  an  empty  execution 
stack,  although  again,  such  errors  should  never  occur  if  Phase  1  has  done  its  job. 
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8.4  Phase  2  Semantic  Equations 


This  section  constitutes  the  heart  of  the  present  report.  It  documents  the  semantic  equations 
and  auxiliary  semantic  functions  in  terms  of  which  Phase  2  of  the  Stage  2  VHDL  translator 
—  state  delta  generation  —  is  denotationally  specified. 


8.4.1  Stage  2  VHDL  Design  Files 

(DFl)  DF  [[  DESIGN-FILE  id  pkg-decr  pkg-body*  use-clause*  ent-decl  arch-body  |  (t) 

=  let  po  =  %(e)(id)  in 

let  idi  =  hd(tl(ent-decl))  in 
let  Pi  =  %(po)(idi)  in 
let  V  =  mk-iuitial-um  verse  (id) 

and  stk  =  (<*STKBOTTOM*  ,id,e,£>)  in 
(mk-disjoint  (id ,  (dot  (id ) ) ) , 
ink-cover 

(dot(id),(catenate(id,“\pc”),VHDLTIME  ,VHDLTIME-PREVIOUS  )), 
mk-scalar-decl(VHDLTIME  ,(TYPE  VHDLTIME)  ), 
mk-scalar-decl(VHDLTIMEJ>REVIOUS  ,(TYPE  VHDLTIME)  ), 
mk-rel(vhdltime-type-desc())((EQ  ,dot(VHDLTIME  ),mk-vhdltime(0)(0))), 
mk-rel 

(vhdltiine-type-desc())((EQ  ,dot(VHDLTIME-PREVIOUS  ),mk-vhdltime(0)(0))), 
ink-decl-sd(id)  (e)  (e)  (e)  (ui  (v)  (stk)) ) 
where  ui  =  Av,stk.D  [[pkg-decl*  ]  (t)(po)(u2)(v)(stk) 
where  U2  =  Av,stk.D  ([pkg-body*  J  (t)(po)(u3)(v)(stk) 
where  us  =  Av,stk.D  [[use-clause*  |  (t)(po)(u4)(v)(stk) 
where  U4  =  Av,stk.EN  [[  ent-decl  ]  (t)(po)(u5)(v)(stk) 
where  Us  =  Av.stk.AR  J  arch-body  |  (t)(pi)(u6)(v)(stk) 
where  ue  =  Av,stk.block-exit(v)(stk) 

mk-disjoint  (id ,1st)  =  cons(ALLDIS  JOINT  ,cons(id,lst)) 

mk-cover(id,lst)  =  cons(COVERING  ,cons(id,lst)) 

mk-scalar-decl(placename, place- type)  =  (DECLARE  , pi acename, place-type) 

vhdltime-type-desc()  =  <VHDLTIME  ,e  *VHDLTIME*  , (STANDARD)  ,tt> 

mk-rel(d)(op,ei  ,e2) 

=  let  tg  =  tag(d)  in 
(case  tg 

(*BOOL*  ,*BIT*  ,*INT*  ,*REAL*  ,*TIME*  *VHDLTIME*  ,*ENUMTYPE*  ,*POLY*  ) 
— ►  mk-scalar-rel(tg)((op,ei,e2)), 

*WAVE*  (EQ  ,61,62), 

*ARRAYTYPE* 

— ►  (is-bitvector-td6sc?(d) 

(case  op 
EQ 

— ►  (is-constant-bitvector?(ei)A  is-const  ant- bit  vector?  (02) 

(EQ  ,cons(USCONC  ,ei),cons(USCONC  ,e2)), 
is-constant-bitvector?(e2)— (EQ  ,ei,cons(USCONC  ,e2)), 
is-constant-bitvector?(ei)— ^  (EQ  ,cons(USCONC  ,ei),e2), 

(EQ  ,61,62)), 

NE 

— ►  (is-constcint-bitvector ? (ei )  A  is-constan  t-bitvector? (62 ) 
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(NEQ  ,coiis(USCONC  ,ei),cons(USCONC  ,62)), 
is-constant-bitvector?(e2)— ►  (NEQ  ,ei,cons(USCONC  ,62)), 
is-constant-bitvector?(ei)— >•  (NEQ  ,cons(USCONC  ,ei),e2), 
(NEQ  ,e:,e2)), 

LT 

^  (EQ  ,(BS  ,1,1), 

(is-constaiit-bitvector?(ei  )A  is-const  ant-bit  vector?  (€2) 

(USLSS  ,cons(USCONC  ,ei),cons(USCONC  ,62)), 
is-const  ant- bit  vector?  (62)“^  (USLSS  ,ei,cons(USCONC  ,62)), 
is-constant-bitvector?(ei )— ►  (USLSS  ,cons(USCONC  ,ei),e2), 
(USLSS  ,ei,e2))), 

LE 

-  (EQ  ,(BS  ,1,1), 

(is-const an t-bit vector? (ei  )A  is-const an t-bit vector? (62) 

(USLEQ  ,cons(USCONC  ,ei),cons(USCONC  ,62)), 
is-const2Lnt-bitvector?(e2)— ►  (USLEQ  ,ei,cons(USCONC  ,62)), 
is-constant-bitvector?(ei)— (USLEQ  ,cons(USCONC  ,ei),e2), 
(USLEQ  ,61,62))), 

GT 

-  (EQ  ,(BS  ,1,1), 

(is-const  an  t-bit  vect  or?  (ei )  A  is-constan  t-bit  vector?  (62 ) 

—  (USGTR  ,cons(USCONC  ,ei),cons(USCONC  ,62)), 
is-constant-bitvector?(e2)— >  (USGTR  ,ei,cons(USCONC  ,62)), 
is-constant-bitvector?(ei )--^  (USGTR  ,cons(USCONC  ,ei),e2), 
(USGTR  ,61,62))), 

GE 

-  (EQ  ,(BS  ,1,1), 

(is-constant-bitvector?(ei  )A  is-constant-bitvector?(e2) 

(USGEQ  ,cons(USCONC  ,ei),cons(USCONC  ,62)), 
is-constant-bitvector?(e2)— ►  (USGEQ  ,ei,cons(USCONC  ,62)), 
is-const  an  t-bit  vect  or?  (ei  )—►  (USGEQ  ,cons(USCONC  ,ei),e2), 
(USGEQ  ,61,62))), 

OTHERWISE  — ►  impl-error( “Shouldn’t  happen!”)), 
is-string-tdesc?  (d) 

— ►  (case  op 

EQ 

— ►  (is-const an t-st ring? (ei) A  is-constan t-string?  (62) 

-.(EQ  ,cons(ACONC  ,ei),cons(ACONC  ,62)), 
is-constant-string?(e2)— ^  (EQ  ,ei,cons(ACONC  ,62)), 
is-constant-string?(ei)— »■  (EQ  ,cons(ACONC  ,ei),e2), 

(EQ  ,61,62)), 

NE 

— ►  (is-const  ant-st ring?  (ei)  A  is-const  ant-string?  (62) 

(NEQ  ,cons(ACONC  ,ei),cons(ACONC  ,62)), 
is- const  ant-st  ring?  (62)-*^  (NEQ  ,ei,cons(ACONC  ,62)), 
is-constant-string?(ei)— ►  (NEQ  ,cons(ACONC  ,ei),e2), 

(NEQ  ,61,62)), 

OTHERWISE-.  iinpl-error( “Shouldn’t  happen!”)), 

(case  op 

EQ 

— »■  (not-dotted-expr-p(e2)— ►  iinpl-error( “Shouldn’t  happen!”), 

(EQ  ,61,62)), 

NE 

— ►  (not-dotted-expr-p(e2)— >■  impl-error( “Shouldn’t  happen!”), 

(NEQ  ,61,62)), 

OTHERWISE  — >■  impl-error( “Shouldn’t  happen!”))), 
*RECORDTYPE* 


no 


— ►  (iiot-dotted-expr-p(e2)“^  mipl-error(“ShouldnH  happen!”), 

(EQ  ,61,62)), 

OTHERWISE —>•  impl-6rror( ‘‘Shouldn’t  happen!”)) 

is-constant-bitvector?  (expr  * ) 

=  niill(expr’*) 

V  (consp(expr* ) 

A  let  expii  =  hd(expr’*‘)  in 

consp(expri)A  hd(expri)=  BS  ) 

is-constant-strmg?(expr* ) 

=  null(expr*) 

V  (consp(expr’^ ) 

A  let  expri  =  hd(expr*)  in 

consp(expri  )A  hd(expri)=  CHAR  ) 

not-dotted-expr“p(expr)  =  ->(consp(expr)A  hd(expr)=  DOT  ) 

mk-scalar-rel(  type-tag)  (relational-op, el  ,e2) 

=  (case  type-tag 

*BOOL* 

— ►  (case  relational-op 

EQ  — ►  mk-bool-eq(type-tag,el,e2), 

NE  — ►  mk-bool-neq(type-tag,el,e2), 

LT  (AND  ,(EQ  , el, FALSE  ),(EQ  ,e2,TRUE  )), 

LE  (IMPLIES  ,el,e2), 

GT  (AND  ,(EQ  ,el,TRUE  ),(EQ  ,e2, FALSE  )), 

GE  (IMPLIES  ,e2,el), 

OTHERWISE 
— impl-error 

(“Unrecognized  Stage  2  VHDL  ‘boolean’  relational  operator:  “a”, 
relational-op)), 

♦bit* 

— »•  (case  relational-op 

EQ  (EQ  ,el,e2), 

NE  (NEQ  ,el,e2), 

LT  (EQ  ,(USLSS  ,el,e2),(BS  ,1,1)), 

LE  ^  (EQ  ,(USLEQ  ,el,e2),(BS  ,1,1)), 

GT  (EQ  ,(USGTR  ,el,e2),(BS  ,1,1)), 

GE  (EQ  ,(USGEQ  ,el,e2),(BS  ,1,1)), 

OTHERWISE 
— ►  impl-error 

(“Unrecognized  Stage  2  VHDL  ‘bit’  relational  operator:  "'a”, 
relational-op)), 

♦INT* 

— ►  (case  relational-op 

EQ  — ^  (EQ  ,€l,e2), 

NE  (NEQ  ,el,e2), 

LT  (LT  ,el,e2), 

LE  (LE  ,el,e2), 

GT  (GT  ,el,e2), 

GE  — »•  (GE  ,el,e2), 

OTHERWISE 
— ►  impl-error 

(“Unrecognized  Stage  2  VHDL  ‘integer’  relational  operator:  "a”, 
relational-op)), 

♦REAL* 
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— >  (case  relational-op 

EQ  (EQ  ,el,e2), 

NE  (NEQ  ,el,e2), 

(RLT  ,RLE  ,RGT  ,RGE  )  — ►  (relational-op, el, e2), 

OTHERWISE 
— ►  impl-error 

(“Unrecognized  Stage  2  VHDL  ‘real^  relational  operator:  *a”, 
relational-op)), 

*ENUMTYPE* 

— ►  (case  relational-op 

EQ  ^  (EQ  ,el,e2), 

NE  (NEQ  ,el,e2), 

LT  (ELT  ,el,e2), 
liE  — ►  (EliE  ,el,e2), 

GT  (EGT  ,el,e2), 

GE  (EGE  ,el,e2), 

PRED  (EPRED  ,el,e2), 

SUCC  (ESUCC  ,el,e2), 

OTHERWISE 
— ►  impl-error 

(“Unrecognized  Stage  2  VHDL  'enumeration’  relational  operator:  "a”, 
relational-op)), 

*POLY* 

— ►  (case  relation^il-op 

EQ  -  (EQ  ,el,e2), 

NE  (NEQ  ,el,e2), 

OTHERWISE 

impl-error 

(“Unrecognized  Stage  2  VHDL  ‘polymorphic’  relational  operator:  "a”, 
relational-op)), 

*VHDLTIME* 

— ►  (case  relational-op 

EQ  ^  (EQ  ,el,e2), 

NE  (NEQ  ,el,e2), 

LT  (TIMELT  ,el,e2), 

LE  ^  (TIMELE  ,el,e2), 

GT  (TIMEGT  ,el,e2), 

GE  (TIMEGE  ,el,e2), 

OTHERWISE 
— +  impl-error 

(“Unrecognized  Stage  2  VHDL  ‘vhdltime’  relational  operator:  ~a”, 
relational-op)), 

OTHERWISE  impl-error  (“Unsupported  Stage  2  VHDL  basic  type  "a.”,  type- tag)) 

mk-bool-eq(type-tag,el  ,e2) 

=  (type-tag  =  *BOOL* 

— ^  (simple-term(el) 

(simple-term(e2)-H^  (EQ  ,el,e2),  (EQ  ,el,(COND  ,e2,TRUE  , FALSE  ))), 
simple-term(e2)— ►  (EQ  ,e2,(COND  ,el,TRUE  , FALSE  )), 

(COND  ,el,e2,(NOT  ,e2))), 

(EQ  ,el,e2)) 

mk-bool-neq(type-tag,el,e2) 

=  (type-tag  =  ♦BOOL* 

— ►  (simple-term  (el) 

^  (simple-term(e2)^  (NEQ  ,el,e2),  (NEQ  , el, (COND  ,e2,TRUE  , FALSE  ))), 
simple-term(e2)--.  (NEQ  ,e2,(COND  ,el,TRUE  , FALSE  )), 
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(COND  ,el,e2,(NOT  ,e2))), 

(NEQ  ,el,e2)) 

simple-terin(tenn) 

=  let  operators  =  (DOT  POUND)  in 
-icoiisp(term)V  hd(term)€  operators 

mk-vhdltime(global)  (delta)  =  (VHDLTIME  , global, delta) 

block-exit  ( v)  (stk) 

=  let  <tg,qiiame,pth,g>  =  hd(stk)  in 
(case  tg 

*STKBOTTOM*  — ►  model-execution-complete(qname), 

*UNDECLARE*  — *■  g(Avv,s.block-exit(vv)(s))(v)(stk), 

(*BLOCK-EXIT*  ,*SUBPROGRAM-RETURN*  )  g(v)(stk-pop(stk)), 

(*BEGIN*  ,*LOOP-EXIT*  ,*PACKAGE-BODY-EXIT*  )  block-exit (v)(stk-pop (stk)), 

OTHERWISE 

— *•  mipl-error( “Unknown  execution  stack  descriptor  with  tag:  "a”,tg)) 
m.odel-execution-complete(id) 

=  (nik-sd(id)(e)(e)(e)(((VHDLJV[ODELJEXECUTION_COMPLETE  ,id)))) 

A  Stage  2  VHDL  design  file  has  a  name,  and  consists  of  some  (possibly  none)  package 
declarations,  package  bodies,  and  USE  clauses,  followed  by  an  entity  declaration  and  an 
architecture  body. 

The  semantics  of  the  design  file  has  as  its  sole  semantic  argument  the  TSE  t  constructed  by 
Phase  1.  The  design  file  name  id  denotes  a  special  place,  whose  value  .id  is  itself  a  place 
that  will  represent,  at  any  given  point  during  the  translation,  the  current  universe  of  visible 
places.  This  name  is  available  to  most  of  the  Phase  2  semantic  functions  as  the  first  edge 
label  in  the  current  path. 

Translation  of  a  design  file  commences  by  generating  some  top-level  assertions  and  decla¬ 
rations  for  the  SDVS  Simplifier: 

•  A  disjointness  assertion,  required  for  technical  reasons. 

The  function  ink-disjoint(place-list)  generates  an  SDVS  assertion  stating  that  the 
places  in  place- list  are  mutually  disjoint. 

•  A  covering  assertion  that  the  initial  universe  of  visible  places  .id  consists  of  certain 
predefined  places:  the  program  counter  place  id\pc  as  well  as  the  places  vhdltime 
and  vhdltime-previous. 

The  function  mk-cover(place,  place-list)^  generates  an  SDVS  covering  assertion 
that  place  covers  all  the  places  in  place-list  and  that  all  of  the  places  in  place- list 
are  mutually  disjoint. 

^The  function  mk-cover  has  in  some  instances  been  superseded  by  mk-cover-£ilready;  it  implements 
an  experimental  new  naming  scheme  for  VHDL  variables.  The  scheme  is  available  only  when  the  SDVS 
function  new-declarations  is  defined  to  return  non-NIL.  In  SDVS  Version  11,  this  new  scheme  is  not 
available,  so  we  will  not  discuss  the  actions  of  this  function  here. 
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•  Declarations  of  the  places  vhdltime  and  vhdltime-previous.  The  function  mk- 
scalar-decl(placename,place-type)  (make  scalar  declaration)  generates  an  SDVS 
declaration  of  a  scalar- value  place  of  the  indicated  type. 

•  Assertions  that  the  places  vhdltime  and  vhdltime4>revious  have  as  their  initial 
value  the  time  object  vhdltime(0,0)  of  the  Simplifier  VHDL  Time  domain. 

The  function  mk-rel(type-desc)(relation5accessed-place, expression)  (make  re¬ 
lation)  constructs  an  SDVS  typed  relation  that  asserts  that  the  value  of  a  place  at 
pre-  or  postcondition  time  stands  in  a  certain  relation  to  the  value  of  an  expression. 

Then  an  SD  that  defines  the  execution  of  the  hardware  description  is  generated.  The 
application  of  this  SD  leads  to  further  usable  SDs,  whose  generation  in  the  absence  of  errors 
is  accomplished  by  continuations.  With  respect  to  the  TSE  t,  an  initial  path  consisting 
of  the  design  file’s  name,  an  initial  universe,  and  an  initial  execution  stack  containing  a 
*STKBOTTOM*  descriptor  to  terminate  model  execution  (see  Section  8.2),  these  SDs 
symbolically  elaborate  the  design  file’s  package  declarations,  package  bodies,  USE  clauses, 
entity  declaration,  and  architecture  body. 


8.4.2  Entity  Declarations 

(ENl)  EN  I  ENTITY  id  declj  declj  opt-id  ]  (t)(p)(u)(v)(stk) 
=  let  Pi  =  %(p)(id)  in  ' 

D  IdeclJ  1  (t)(pi)(ui)(v)(stk) 
where  ui  =  Avi,stki.D  JdeclJ  J  (t)(pi)(u)(v)(stk) 


Phase  2  translation  of  an  entity  declaration  effects  the  elaboration,  via  semantic  function 
D,  first  of  its  port  declarations,  and  then  of  any  other  declarations  local  to  the  entity.  The 
interphase  abstract  syntax  tree  transformation  has  arranged  for  the  Phase  2  abstract  syntax 
of  port  declarations  to  be  identical  to  that  for  other  objects  of  class  SIGNAL. 


8.4.3  Architecture  Bodies 

(ARl)  AR  I  ARCHITECTURE  idi  id2  ded*  con-staf  opt-id  J  (t)(p)(u)(v)(stk) 

=  let  pi  =  %(p)(idi)  in 

D  fded^  I  (t)(pi)(ui)(v)(stk) 
where 

ui  =  AvijStki. 

CS  [[  con~stat*  |  (t)(pi)(u2)(vi)(stki) 
where 

U2  =  Av2,stk2. 

cons((VHDLJV[ODEL-ELABORATION_COMPLETE  ,hd(p)), 

(mk-sd 

(hd(p))(e)(e)(£) 

((make-vhdl-begin-model-execation 

(hd(p))(u)(v2)(stk2))))) 

Phase  2  translation  of  an  architecture  body  first  effects  the  elaboration,  via  semantic  func¬ 
tion  D,  of  the  architecture’s  local  declarations,  and  then  initiates  the  translation,  via  se¬ 
mantic  function  CS,  of  its  concurrent  statements  (which  have  been  uniformly  converted  to 
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PROCESS  statements  by  the  interphase  abstract  syntax  tree  transformation  at  the  end  of 
Phase  1;  see  Section  7).  The  continuation  of  concurrent  statement  elaboration  returns  a 
Simplifier  eissertion  to  the  effect  that  the  VHDL  model’s  elaboration  is  complete,  well 
as  a  state  delta,  constructed  by  special  function  make- vhdl-begin-model-execut  ion,  that 
initiates  symbolic  execution  of  the  model. 


8*4.4  Declarations 

(DO)  D  I  e  1  (t)(p)(u)(v)(stk)  =  u(v)(stk) 

(Dl)  D  I  decl  deer  J  (t)(p)(u)(v)(stk) 

=  D  [[  decl  1  (t)(p)(ui)(v)(stk) 

where  ui  =  Avi,stki.D  [[decl*  ]  (t)(p)(u)(vi)(stki) 


(D2)  D  [  pkg-decl  pkg-decl*  ]  (t)(p)(u)(v)(stk) 

=  D  1  pkg-decl  I  (t)(p)(ui)(v)(stk) 

where  ui  =  Avi,stki.D  [pkg-decl*  |  (t)(p)(u)(vi)(stki) 


(D3)  D  [  pkg-body  pkg-body*  1  (t)(p)(u)(v)(stk) 

=  D  [  pkg-body  ]  (t)(p)(ui )(v)(stk) 

where  ui  =  Avi,stki.D  [pkg-body*  |  (t)(p)(u)(vi)(stki) 


(D4)  D  [  use-clause  use-clause*  ]  (t)(p)(u)(v)(stk) 

=  D  [  use-clause  J  (t)(p)(ui)(v)(stk) 

where  ui  =  Avi,stki.D  [use-clause*  J  (t)(p)(u)(vi)(stki) 

The  Phase  2  processing  of  declarations  proceeds  sequentially,  from  first  to  last. 

(D5)  D  [  DEC  object-class  id"*"  type-mark  opt-expr  |  (t)(p)(u)(v)(stk) 

=  let  d  =  lookup-type-desc(type-mark)(t)(p)  in 
(case  tag(d) 

(♦BOOL*  ♦BIT*  *INT*  *REAL*  *TIME*  *ENUMTYPE*  ) 

— >•  gen-scalax-decl 

(decl)  (object-class)  (id"*" )  (d)  (opt-expr)  ( t )  (p)  (u)  ( v)  (stk) , 

♦ARRAYTYPE* 

— ►  gen-array-decl 

(decl)  (object-class)  (id"*"  )(d)  (direction(d) )  (real-lb(d) ) 

(real-ub  (d))  (elty  (d) )  (opt-expr)  ( t )  (p)  (u)  ( v)  (stk) , 

♦RECORDTYPE* 

gen-record-decl 

(decl)  (object-class)  (id'*’ )  (d)  (opt-expr)  (t )  (p)  (u)  (v)  (stk) , 

OTHERWISE  u(v)(stk)) 


(D6)  D  [  SLCDEC  object-class  id"*"  slice-name  opt-expr  J  (t)(p)(u)(v)(stk) 

=  let  d  =  lookup(t)(p)(hd(id'*’))  in 

let  anon-array-type-desc  =  second(type(d))  in 
gen-array-decl 

(decl)  (object-class)  (id"*" )  (anon-array-type-desc) 
(direction(anon-array-type-desc))  (Ib(anon-array-type-desc) ) 
(ub(anon-array-type-desc))(elty(anon-array-type-desc))(opt-expr)(t)(p) 
(u)(v)(stk) 
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lookup-type-desc(id*)(t)(p) 

=  (null(id*)-->'  void-type-desc(), 

let  q  =  access  (rest  (id*  ))(t)(p)  in 
lookup-desc(t)(q)(last(id*))) 

access(id*)(t)(p) 

=  (niiQ(id*)-^  p, 

let  d  =  lookup(t)(p)(hd(id*))  in 
access(tl(id*))(t)(%(path(d))(idf(d)))) 

lookup-desc(t)(p)(id) 

=  let  d  =  t(p)(id)  in 

(d  =  ^UNBOUND*  lookup-desc(t)(rest(p))(id),  d) 

gen-scalar-decl(decl)  (object-class)  (id"^  )(d)(expr)  (t)  (p)(u)  ( v)  (stk) 

=  (null(expr) 

gen-scalar-decl-id-i-(decl) (object-class) (id"** ) (d) (expr)(t)(p) (u)(v) (stk) , 
gen-scalar-decl-id*  (decl)  (object-class)  (id"*" )  (d)  (expr)  (t)  (p)  (u)  ( v)(stk) ) 

gen-scaJar-decl-id-h  (decl)  (object-class)  (id**"  )(d)  (expr)  (t)  (p)(u)  (v)  (stk) 

=  (object-class  =  SIG 

— >  geii-scalar-signai-decl-id-l-(decl) (id+  )(d) (expr)(t) (p) (u) ( v) (stk), 
gen-scalar-nonsignal-decl-id-}-(decl)(id'^)(d)(expr)(t)(p)(u)(v)(stk)) 

gen-scalax-decl-id*  (decl)  (object-class)  (id  *  )  (d)  (expr)  (t)  (p)  (u)  ( v)  (stk) 

=  (niill(id*)— ►  u(v,stk), 
let  id+  =  (hd(id*))  in 

gen-scalar-decl-id-f  (decl)  (object-class)  (id‘*')(d)  (expr)  (t)(p)(ui)(v)  (stk) 
where 

ui  =  AvijStki. 

gen-scalar-decl-id* 

(decl)(object-class)(tl(id*))(d)(expr)(t)(p)(u)(vi)(stki)) 


gen-scalax-nonsignal-decl-id-h  (decl)  (id  ■*')(d)  (expr)  (t)(p)(u)(v)  (stk) 

=  R  I  expr  J  (t)(p)(k)(v)(stk) 
where 

k  =  A(e,f),vi,stki. 
let  z  =  hd(p) 

and  suqn"*"  =  get-qids(id'*’)(t)(p)  in 
let  V2  =  push-universe(vi )(z)(suqn'*’)  in 
let  duqn***  =  get-qualified-ids(suqn‘^  )(v2)  in 
(mk-exists- already 
(duqn‘*‘  )(suqn'^  )(v) 

(mk-decl-sd 

(z)(f)(e)((z)) 

(nconc 

(mk-qual-id-coverings(suqn'*‘  )(duqn‘‘’  )(z)(v), 
ink-scalar-nonsignal-dec-post 

(decl)((duqn+,e,d))(t)(p)(u)(v2)(stk))))) 

get-qids(id*)(t)(p) 

=  (null(id*)-+  e,  cons(qid(t(p)(hd(id*))),get-qids(tl(id*  ))(t)(p))) 

get-qualified-ids  (suqn  *  )  ( v) 

=  (null(suqn*)— ►  e, 

cons  (qualified-id  (hd  (suqn*  ))(v),get-qualified-ids(tl(suqn*  ))(v))) 
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qualified-id(suqn)  ( v) 

=  let  vaxs  =  uni  verse- vars(v)  in 

let  suqn-triple  =  assoc(suqn,vars)  in 
(suqn-triple 

— ►  let  n  =  lid(tliird(suqn-triple))  in 
ncLme-qualified-id(suqn)  (n) , 
name-qualified-id  (suqn)  ( 1 )) 

name-qualified-id  (suqn)  (n) 

=  (new-declarations()— (PLACELEMENT  ,suqn,n), 

(n  =  1  — ♦  suqn,  catenate(suqn,“!”,n))) 

already-qualified-id(suqn)(v)  =  ~inull(assoc(suqn, universe- vars(v))) 

qualified-id-decls(suqn* ) 

=  (null(suqn*)— ^  e, 

let  suqn  =  hd(suqn*)  in 

cons((DECLARE  ,suqn,(TYPE  PLACEARRAY)  ),qualified-id-decls(tl(suqn*)))) 

mk-exists-already(duqn‘^  )(suqn‘^  )(v)(sd) 

=  (new-declarations() 

— ►  (aJready-qualified-id(lid(suqn'^))(v)-^  sd,  mk-exists(suqn"*')(sd)), 
mk-exists(duqn'^  )(sd)) 

mk-exists(suqn*)(sd)  =  sd 

mk-qual-id-coverings(suqn‘^ )  (duqn"^  )  (z)  (  v) 

=  (new-declarations() 

(already-qualified-id(lid(suqn‘*'))(v) 

— >  (mk-rel(int-type-desc())((EQ  ,pound(z),dot(z)))), 
nconc 

((mk-disjoint  (z,cons(dot(z),suqn’^  )) , 
mk-cover(pound(z),cons(dot(z),suqn'*‘))),qualified-id-decls(suqn‘*' ))), 
(mk-d[isjomt(z,cons(dot(z),duqn'*‘)),mk-cover(pound(z),cons(dot(z),duqn'*')))) 

mk-scalaj-nonsignal-dec-post  (decl)  (duqn  *  ,e,d)  ( t)  (p)  (u)  ( v)(stk) 

=  let  type-spec  =  mk-type-spec(d)(t)(p)  in 
(null(e) 

— »•  nconc 

(mk-scalar- nonsign  al-dec-post-declare(duqn* )  (1  ype-spec) , 
u(v)(stk)), 

nconc 

(mk-scalar-nonsignal-dec-post-declare(duqn  *  )  (type-spec) , 
ui  (v)(stk)) 
where 

ui  =  AvijStki. 

(mk-decl-sd 

(hd(p))(e)(e)(duqn*) 

(nconc 

(mk-scalar-nonsignal-dec-post-init  (duqn  * )  (e)  (d) , 

Tl(vi)(stkl))))) 

nik-type-spec(d)  (t)  (p) 

=  (c2tse  tag(d) 

*BOOL*  ^  (TYPE  BOOLEAN)  , 

*BIT*  -  (TYPE  BIT)  , 

♦INT*  ^  (TYPE  INTEGER)  , 
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*REAL=^  —  (TYPE  FLOAT)  , 

♦TIME*  -V  (TYPE  INTEGER)  , 

♦VHDLTIME*  ^  (TYPE  VHDLTIME)  , 

♦VOID*  —  (TYPE  VOID)  , 

♦POLY*  —  (TYPE  POLYMORPHIC)  , 

♦WAVE*  (TYPE  .WAVEFORM  ,mk-type-spec(hd(type(d)))(t)(p)), 

♦ENUMTYPE* 

-V  (idf(d)=  CHARACTER  ^  (TYPE  CHARACTER)  , 
cons(TYPE  ,cons(ENUMERATION  ,Uterals(d)))), 

♦RECORDTYPE*  -*  cons(TYPE  ,cons(RECORD  ,record-to-type(components(d))(t)(p))), 
♦ARRAYTYPE* 

— let  expri  =  lb(d)  in 

R  lexpn  1  (t)(p)(ki)(e)(e) 
where 

ki  =  A(ei,fi),vi,stki, 

let  expr2  =  ub(d)  in 
R  [[expr2  1  (t)(p)(k2)(vi)(stki) 
where 

k2  =  A(e2,f2),V2,Stk2. 
cons(TYPE  , 

(ARRAY  ,ei,e2,mk-type-spec(elty(d))(t)(p))), 

OTHERWISE impl-error( “Unrecognized  Stage  2  VHDL  type:  **a”,tag(d))) 

record-to- type  (record-components)  (t)  (p) 

=  (null(record-components)— *■  e, 

let  (id,d)  =  hd (record-components)  in 
cons((id,mk-type-spec(d)(t)(p)), 
record-to-type(tl(record-components) )  (t)  (p) ) ) 

mk-scalar-nonsignal-dec-post-declare(duqn*)  (type- spec) 

=  (null(duqn* )— ►  e, 

let  duqn  =  hd(duqn*)  in 
cons  (mk-scalar-decl  (duqn ,  type-spec) , 

mk-scalar-nonsignal-dec-post-declare(tl(duqn  * ) )  (type-spec) ) ) 

mk-scalar-decl (placename, place-type)  =  (DECLARE  ,placename, place-type) 

mk-scalar-nonsignal-dec-post-init(duqn*)(e)(d) 

=  (null(duqn*  )— ►  e, 

let  duqn  =  hd(duqn*)  in 
nconc 

(assign(d)((duqn,e)),mk-scalar-nonsignal-dec-post-init(tl(duqn*))(e)(d))) 

assign(d)  (target,  value) 

=  (case  tag(d) 

(*BOOL*  ,*INT*  ,*REAL*  ,*ENUMTYPE*  ,*POLY*  ,*VHDLTIME*  ,*WAVE*  ) 

— ►  (mk-rel(d)((EQ  ,pound(target), value))), 

*TIME*  — ►  (mk-rel(int-type-desc())((EQ  ,pound(target), value))), 

♦ARRAYTYPE* 

— ►  (is-bitvector-tdesc?(d) 

(is-const ant-bit vector?( value) 

— *■  (case  direction(d) 

TO 

— ►  assign-array-to 

(target) (value) (elty(d))( (ORIGIN  ,target))(0), 

DOWNTO 
— ►  assign-array-downto 
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(taxget)  (value)  (elty(d)) 

(mk-exp2 
(SUB  , 

mk-exp2(ADD  , (ORIGIN  , target), (RANGE  ,t2Lrget)),l))(0), 
OTHERWISE iinpl-error( “Illegal  direction:  “a”, direction 

(d))), 


(mk-rel(d)((EQ  ,pound(target), value)))), 
is-string-tdesc?  (d) 

(is-constant-string? (value) 

— ►  (case  direction  (d) 


TO 


— +  assign-array-to 

(target) (value) (elty(d))  ((ORIGIN  ,target))(0), 

DOWNTO 

assign-array-downto 

(target)(value)(elty(d)) 

(mk-exp2 
(SUB  , 

mk-exp2(ADD  , (ORIGIN  , target), (RANGE  , target) ),1))(0), 
OTHERWISE impl-error( “Illegal  direction:  "a”, direction 

(d))), 

(mk*rel(d)((EQ  ,pound(target), value)))), 

(not-dotted“expr-p(value) 

— ►  (case  direction(d) 

TO  — >  assign-array-to 

(target)  (value)  (elty(d))( (ORIGIN  ,target))(0) , 

DOWNTO 


—  eissign-array-downto 

(target)  (value)  (elty  (d)) 

(mk-exp2 
(SUB  , 

mk-exp2(ADD  , (ORIGIN  , target), (RANGE  ,target)),l))(0), 
OTHERWISE iinpl-error(“IllegcQ.  direction:  “a”, direction 

(d))), 

(mk-rel(d)  ( (  EQ  ,  pound  (target) ,  value) ) ) ) ) , 

*RECORDTYPE* 


(not-dotted-expr-p( value)— >■  assign-record(components(d))( (target, value)), 
(mk-rel(d)((EQ  ,pound(target), value)))), 

OTHERWISE impl-error( “Unrecognized  Stage  2  VHDL  type  tag:  “'a’’,tag(d))) 


is-const  ant-bit  vector?(expr'^ ) 

=  null(expr*) 

V  (consp(expr*) 

A  let  expri  =  lid(expr*)  in 

consp(expri  )A  hd(expri)=  BS  ) 


is-constajit-string?(expr* ) 

=  null(expr*) 

V  (consp(expr*) 

A  let  expri  =  hd(expr*)  in 

consp(expri ) A  hd(expri)=  CHAR  ) 

not-dotted-expr-p(expr)  =  -i(consp(expr)A  hd(expr)=  DOT  ) 

assign-ajray-to(target)  (aggregate)  (element-type-desc)  (start-index)  (m) 
=  (null(aggregate)-^  e, 
nconc 
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(assign 

(element-typc-desc) 

(((ELEMENT  , target, ink-exp2( ADD  , start-index, in)),hd(aggregate))), 
assign- array- to 

(target)(tl(aggregate))(element-type-desc)(start-index)(in-|-l))) 

assign**  array-downto(target)(aggregate)(element-type-desc)(start-index)(m) 

=  (null(aggregate)-^  e, 
nconc 
(assign 

(element-type-desc) 

(((ELEMENT  ,target,mk-exp2(SUB  , start-index, m)),hd(aggregate))), 
assign- array-down  to 

(target)(tl(aggregate))(eleinent-type-desc)(start-index)(mH-l))) 

mk-exp2(binary-op,el,e2) 

=  (case  binary-op 

AND  (AND  ,el,e2), 

NAND  (NAND  ,el,e2), 

OR  — ►  (OR  ,el,e2), 

NOR  (NOR  ,el,e2), 

XOR  (XOR  ,el,e2), 

BAND  *-^  (US AND  ,el,e2), 

BNAND  (USNAND  ,el,e2), 

BOR  (USOR  ,el,e2), 

BNOR  (USNOR  ,el,e2), 

BXOR  (USXOR  ,el,e2), 

ADD  ^  (PLUS  ,el,e2), 

SUB  (MINUS  ,el,e2), 

MUL  (MULT  ,el,e2), 

DIV  ^  (DIV  ,el,e2), 

MOD  (MOD  ,el,e2), 

REM  (REM  ,el,e2), 

EXP  (EXPT  ,el,e2), 

(RPLUS  ,RMINUS  ,RTIMES  ,RDIV  ,REXPT  )  (binary-op, el, e2), 

CONCAT  —  (ACONC  ,el,e2), 

OTHERWISE 

— ♦  iinpl-error( “Unrecognized  Stage  2  VHDL  binary  operator:  "a”, binary-op)) 

assign-record  (comp* )  (ei  ,e2 ) 

=  (null(comp*)— s, 

let  (id,d)  =  hd(comp*)  in 
nconc 

(assign(d)((mk-recelt(ei , id), second  (assoc  (id,  e2 )))), 
assign-record(tl(comp*  ))((ei  ,^2)))) 

mk-recelt(e)(id)  =  (RECORD  ,e,id) 


gen-scalar-signal-decl-id-l-  (decl)  (id"*" )  (d)  (expr)  ( t )  (p)  (u)  ( v)  (st  k) 
=  R  [[  expr  I  (t)(p)(k)(v)(stk) 
where 


k  =  A(e,f),vi,stki. 
let  z  =  hd(p) 

and  signal-suqn'*’  =  get-qids(id'*')(t)(p)  in 
let  driver-suqn"*'  =  name-drivers  (sign  al-suqn**" )  in 
let  suqn'*’  =  append  (sign  al-suqn"^  ,driver-suqn‘*')  in 
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let  V2  =  push-uiuverse(vi)(z)(suqii*^)  in 
let  signal-duqn"^  =  get-qualified-ids  (signal-suqii‘^)(v2) 

and  driver-duqn"*"  =  get-quaJified-ids(driver-suqn‘^)(v2)  in 
let  duqu"*"  =  append(signal-duqn’^  jdriver-duqn'*’ )  in 
(mk-exists- already 
(duqn**'  )(suqn'^  )(v) 

(mk-decl-sd 

(z)(f)(^)((z)) 

(nconc 

(mk-qual-id-coverings(suqn‘*'  )(duqn'^  )(z)(v), 
mk-scalar-signal-dec-post 

(decl)((duqii'*‘  ,signal-duqn‘*'  ,driver-duqn'*’  ,e,d))(t)(p)(u) 
(V2)(stk))))) 


iiame-drivers(signai-n  ames) 

=  (null(signal-names)— ►  e, 

cons(name“driver  (hd(signal-names) )  ,name-drivers(tl(signal-names) ) ) ) 


mk-scalar-signal-dec-post  (decl)  (duqn  *  jsignal-duqn*^  ,driver-duqn*  ,e,d)  (t)  (p)  (u)  ( v)  (stk) 
=  let  type-spec  =  mk-type-spec(d)(t)(p)  in 

let  waveform-type-spec  =  (TYPE  , WAVEFORM  , type-spec)  in 
nconc 

(mk-scalar-signal-dec-post-declare 

(signal-duqn* )  (driver-duqn* )  (type-spec)  (waveform-type-spec) , 
ui(v)(stk)) 
where 

ui  =  AvijStki. 

(mk-decl-sd 

(hd(p))(e)(e)(duqn*) 

(nconc 

(mk-scalar-signal-dec-post-init 

(signal-duqn*)(driver-duqn*)(e)(d)(waveform-type-desc(d)), 

u(vi)(stki)))) 


mk-scalar-signal-dec-post-declare(signal-duqn* )  (driver-duqn*  )(t3pe-spec)(  waveform- type-spec) 
=  (null(signal-duqn*)— ►  e, 

let  signal-duqn  :=  hd(signal-duqn*) 

and  driver-duqn  =  hd(driver-duqn* )  in 
nconc 

(mk-scalar-signal-decl 

((signal-duqn  ,driver-duqn))  ( (type-spec,  waveform-type-spec) ) , 
mk-scalar-signal-dec-post-declare 

(tl(signal-duqn*  ))(tl(driver-duqn* ))  (type-spec )( waveform-type-spec))) 


mk-scalar-signal-decl  (signal-name,driver-name)  (type-spec,  waveform- type-spec) 
=  (mk-scaJar-decl(signal-naine,  type-spec), 

mk-scalar-decl(driver-name,  waveform-type-spec ) , 
mk-scalaj-signal-fn-decl(signal-name, driver-name)) 


mk-scalar-signal-fn-decl(signal-name, driver-name) 

=  (DECLARE  , signal-name, (TYPE  ,FN  ,(VAL  ,dot(driver-name),dot(VHDLTIME  )))) 


waveform-type-desc(type-desc)  =  <WAVEFORM  ,e,*WAVE*  , (STANDARD)  ,tt,type-desc> 
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mk-scalar-signal-dec-post-init(signaJ“duqn*)(driver-duqn*)(e)(type-desc)(waveforin“type-desc) 
=  (null(signal-duqn*)— 

let  signal-duqn  =  hd(signal-duqii*) 

and  driver-duqn  =  hd(driver-duqn*)  in 
let  initial-signal- val  =  (niill(e)— eval-expr (dot (signal-duqn)),  e)  in 
let  initial- waveform  =  init-scalar-signal 

(signal-duqn)  ( driver-duqn)  ( t  y  pe-desc) 

(initial-signal-val)  in 


nconc 

(assign(waveform-type-desc)  ((driver-duqn, initial- waveform) ) , 
mk-scalax-signal-dec-post-init 

(tl(signal-duqn*))(tl(driver-duqn*))(e)(type-desc)(waveform-type-desc))) 


gen-array-decl(decl)  (object-class)  (id'*' )(type-desc)  (direction)  (lower-bound)  (upper-bound) 
(element-type-desc)  (expr  )  (t )  (p)  (u)  ( v)  (stk) 

=  (null(expr) 

— ►  gen-array-decl-id-f* 

(decl)  (object-class)  (id"*" )  (type-desc)  (direction)  (lower-bound)  (upper- bound) 
(element-type-desc)  (expr)  (t )  (p)  (u)  (v)  (stk) , 
gen-array-decl-id* 

(decl)  (object-class)  (id '*')  (type-desc)  (direction)  (lower-bound)  (upper-bound) 
(element-type-desc)  (expr)  (t)  (p)  (u)  ( v)  (stk) ) 

real-lb(d) 

=  let  bound  =  lb(d)  in 

(consp(bound)A  hd(bound)=  NUM  — ^  bound, 

(REF  ,((SREF  ,path(d),mk-tick-low(idf(d)))))) 

mk-tick-low(id)  =  catenate(id,“’LOW”) 

real-ub(d) 

=  (path(d)=  (STANDARD)  A  idf(d)G  (STRING  BIT-VECTOR)  e, 
let  bound  =  ub(d)  in 

(consp(bound)A  hd(bound)=  NUM  — ►  bound, 

(REF  ,((SREF  ,path(d),mk-tick-liigh(idf(d))))))) 

mk- tick-high  (id)  =  catenate(id,“’HIGH”) 

gen-array-decl-id-f  (decl)  (object-class  )(id'*’ )  (type-desc)  (direction)  (lower-bound)  (upper-bound) 
(element-type-desc)  (expr)  (t )  (p)  (u)  ( v)  (stk) 

=  (object-class  =  SIG 

— ►  gen-array-signal-decl-id-h 

(decl)(id'*' )  (type-desc)  (direction)  (lower-bound)  (upper-bound) 

(element-type-desc)  (expr)  (t)  (p)  (u)  ( v)  (stk) , 
gen-array-nonsignal-decl-id-h 

(decl) (id"*" )  (direction)  (lower-bound) (upper-bound) ( element-type-desc) (expr ) 
(t)(p)(u)(v)(stk)) 

gen-array-decl-id*(decl)(object-class)(id*)(type-desc)  (direction)  (lower-bound)  (upper-bound) 
(element-type-desc)  (expr)  (t )  (p)  (u)  (v)  (stk) 

=  (null(id*)— V  u(v,stk), 
let  id-*-  =:  (hd(id*))  in 
gen-array-decl-id-f 

(decl)  (object-class)  (id '*■ )  (type-desc)  (direction)  (lower-bound)  (upper-bound) 
(element-type-desc)  (expr)  (t)  (p)  (ui )  (v)(stk) 
where 

ui  =  Avi  jStki . 

gen-array-decl-id* 

(decl)  (object-class)  (tl(id  * ))  (type-desc)  (dii  ection)  (lower-bound) 

(upper-bound)  (element-type-desc)  (expr )  (i, )  (p)  (u)  ( vi )  (stki )) 
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gen-axray-nonsignaJ-decl-id-f  (decl)  (id*** )  (direction)  (expri )  (expr2  )  (element-type-desc)  (expr)  (t)  (p)  (u)  ( v)  (stk) 

=  R  [  expr  I  (t)(p)(k)(v)(stk) 
where 

k  =  A(e,f),vi,stki. 

R  [expn  I  (t)(p)(ki)(vi)(stki) 
where 

ki  =  A(ei,fi),V2,stk2. 

R  I  expi2  I  (t)(p)(k2)(v2)(stk2) 
where 

k2  =  A(e2,f2),V3,Stk3. 
let  2  =  hd(p) 

and  len  =  length-expr(expr) 
and  sugn"**  =  get-qids(id‘^)(t)(p)  in 
let  V4  =  push-universe (v3)(z)(suqn"*')  in 
let  duqu***  =  get-quaMed-ids(suqn'*')(v4)  in 
let  gi  =  (ei  A  e2 

— ►  mk-rel(int-type-desc())((LE  ,ei,e2)), 

TRUE) 

and  g2  =  (ei  A  62 

— mk-rel 

(int-type-desc()) 

((GE, 

mk-exp2 

(ADD  ,mk-exp2(SUB  ,e2,ei), 
l),len)), 

TRUE)  in 
(mk-exists- already 
(duqn"^  )  (suqn"^  )  ( v) 

(mk-ded-sd 

(2) 

(nconc 

(fl,f2,(gl), 

(len  =  0  -H.  f,  nconc((g2),f))))(e)((z)) 

(nconc 

(mk-qual-id-co  verings 
(suqn'*'  )(duqn'^  )(z)(v), 
mk-array-nonsignal-dec-post 
(decl) 

((duqn"^  ,e, direction, ei  ,62, element-type-desc)) 

(t)(p)(tt)(Y4)(stk3))))) 

length-expr(expr) 

=  (nuU(expr)— ►  0, 

hd(expr)E  (BITSTR  STR  PAGGR)  — >  length(second(expr)), 

1) 

mk-axray-nonsignal-dec-post(decl)(duqn*  ,e, direction, lowei-bound, upper-bound, element-type-desc)(t)(p)(u)(v)(stk) 
=  let  element- type-spec  =  mk-type-spec(element-type-desc)(t)(p)  in 
(null(e) 
nconc 

(mk-array-nonsignal-dec-post-declare 

(duqn*  )  (element- type-spec)  (direction)  (lower- bound)  (upper-bound) , 
u(v)(stk)), 

nconc 

(mk-array-nonsignal-dec-post-declare 

(duqn* )  (element- type-spec)  (direction)  (lower-bound)  (upper-bound) , 
ui(v)(stk)) 
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where 

Ml  =  Avi,stki. 

(mk-decl-sd 

(hd(p))(e)(£)(duqn*) 

(nconc 

((direction  =  TO 

— ^  mk-airay-nonsignal-dec-post-init-to 

(duqn*  )  (e)  (element-type-desc)  (lower-bound) , 
mk-array-nonsignal-dec-post-init-downto 

(duqn*  )(e)(element-type-desc)  (upper-bound)), 
u(vi)(stki))))) 

ink-array-nonsignal-dec-post-declare(duqn*)(eleinent-type-spec)  (direction)  (lower-bound)  (upper-bound) 
=  (null(duqn*)— ^  e, 

let  duqn  =  hd(duqn*)  in 
nconc 

(mk-vhdl-cLrray-decl 

(duqn)  (element-type-spec)  (direction)  (lower-bound) 

((null(upper-bound) 

— ^  (lower-bound  =  1  -+  (RANGE  ,duqn), 

mk-exp2(SUB  ,mk-exp2(ADD  , (RANGE  , duqn), lower-bound),!)), 
upper-bound)), 

mk-zurray-nonsignal-dec-post-declare 

(tl(duqn*))  (element-type-spec)  (direction)  (lower-bound)  (upper-bound))) 

mk-vhdl-array-decl(id)  (element-type-spec)  (direction)  (lower-bound)  (upper-bound) 

=  (case  second(element-type-spec) 

BIT 

— ►  (mk-array-decl  (id)  (element- type-spec)  (lower-bound)  (upper-bound) , 
mk-bitvec-fn-decl(id)  (direction)  (lower- bound)  (upper-bound)), 

CHARACTER 

— ►  (mk-arr  ay-decl(id)  (element-type-spec)  (lower-bound)  ( upper-bound) , 
mk-string-fn-decl(id)  (direction)  (lower-bound)  (upper-bound)), 

OTHERWISE 

— (mk-array-decl(id)  (element-type-spec)  (lower-bound)  (upper-bound))) 

mk-array-decl(id)(element-type-spec)  (lower-bound)  (upper-bound) 

=  (DECLARE  , id, (TYPE  , ARRAY  , lower-bound, upper-bound, element-type-spec)) 

mk-bitvec-fn-decl(bitvec-najne)  (direction)  (lower-bound)  (upper-bound) 

=  let  bitvec-elt-names  =  (direction  =  TO 

— ►  mk-slice-elt-names-to 

(bitvec-name)(lower-bound)(upper-bound), 

mk-slice-elt-names-downto 

(bitvec-name) (lower- bound)  (upper-bound))  in 
(DECLARE  , bitvec-name, (TYPE  ,FN  ,concatenate-bits(bitvec-elt-names))) 

mk-string-fn-decl(string-name)(direction)(lower-bound)(upper-bound) 

=  let  string-elt-names  =  (direction  =  TO 

— ►  mk-slice-elt-names-to 

(string-name)(lower-bound)(upper-bound), 

mk-slice-elt-names-downto 

(string-name) (lower-bound) ( upper-bound))  in 
(DECLARE  , string-name,  (TYPE  ,FN  ,concatenate-characters(string-eli-names))) 

mk-slice-elt-names-to(slice-name)(lower-bound)(upper-bonnd) 

=  (lower-bound  >  upper-bound  — ►  e, 

cons(mk-array-elt  (slice-name)  (lower-bound), 

mk-slice-elt-names-to(slice-name)(lower-bound'fl)  (upper-bound))) 
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ink-slice-elt-names-downto(slice-naine)  (lower-bound)  (upptJt-bound) 

=  (upper-bound  <  lower-bound  — ►  e, 

cons(mk-array-elt  (slice-name)  (upper-bound) , 

mk-s]ice-elt-names-downto(slice-name)  (lower-bound)  (upper-bound— 1))) 
mk-array-elt(id)(e)  =  (ELEMENT  ,id,e) 

concatenate-bits(bit-names)  =  cons(USCONC  ,mk-dotted-names(bit-names)) 
concatenate-cliaracters(char-names)  =  cons(ACONC  ,mk-dotted-names(char-names)) 
mk-dotted-naines(names) 

=  (null(names)— ►  e,  cons(dot(lid(names)),mk-dotted-names(tl(names)))) 

mk-array-nonsignal-dec-post-mit-to(duqn’*  )(e)  (element- type-desc)  (lower-bound) 

=  (null(duqn’*')— ►  e, 
nconc 

(assign-array-to(hd(duqn* ))  (e)  (element- type-desc)  (lower-bound)  (0) , 
mk-array-nonsignal-dec-post-init-to 

(tl(duqn  *  )  )  (e)  (element- type-desc)  (lower-bound)  ) ) 

mk-array-nonsignai-dec-post-init-downto(duqn* )  (e)  (element- type-desc)  (upper-bound) 
=  (nuU(duqn* )— ►  e, 
nconc 

(assign-aa:ray-downto(hd(duqn*  ))  (e)  (element-type-desc)  (upper-bound)  (0) , 
mk-array-nonsignal-dec-post-init-downto 

(tl(duqn*  ))  (e)  (element-type-desc)  (upper-bound)) ) 


gen-array-signal-decl-id-l-(decl)  (id+ )  (type-desc)  (direction)  (expr  i )  (expra  )  (element-type-desc)  (expr)  (t )  (p)  (u)  ( v)  (stk) 
=  R  I  expr  ]  (t)(p)(k)(v)(stk) 
where 

k  =  A(e,f),vi,stki. 

R  [  expn  1  (t)(p)(ki)(vi)(stki) 
where 

ki  =  A(ei,fi),V2,stk2. 

R  I  expr2  1  (t)(p)(k2)(v2)(stk2) 
where 

k2  =  A(e2,f2),V3,Stk3. 
let  2  =  hd(p) 

and  len  =  length-expr(expr) 
and  signal-suqn'^  =  get-qids(id"^)(t)(p)  in 
let  driver-suqn*^  =  name-drivers(signal-suqn‘^ )  in 
let  suqn"*’  =  append (signal-suqn*^  ,driver-suqn'^ )  in 
let  V4  =  push-uiiiverse(v3)(z)(suqn'^)  in 
let  signal-duqn'*’  =  get-qualiiied-ids 

(signal-suqn"*’  )(v4) 
and  driver-duqn"^  =  get-quaJified-ids 

(driver-suqn“^)(v4)  in 

let  duqn***  =  append 

(signal-duqn+  jdriver-duqn*** )  in 
let  gi  =  (ei  A  62 

— ►  mk-rel 

(int-type-desc())((LE  ,€1,62)), 

TRUE  ) 

and  g2  =  (ei  A  62 

— ►  mk-rel 
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(int-type-desc()) 

((GE, 

mk“exp2 

(ADD  , 

mk-exp2(SUB  ,e2,ei)jl),ien)), 

TRUE)  in 
(mk-exists-’ already 
(duqn"**  )(suqn‘^  )(v) 

(mk-decl-sd 

(z) 

(nconc 

(len  =  0  -*  f,  nconc(f,(g2)))))(e)((z)) 

(nconc 

(mk-qual-id-coverings 
(saqu"*"  )(duqn'*'  )(2)(v), 
mk-array-signal-dec-post 
(decl) 

((duqn"*"  jsignal-duqn'*’  jdriver-duqn**"  ,e,type-desc, direction, 
ei  ,62  ,eleinent-ty  pe-desc))  ( t )  (p) 

(U)(v4)(stk3))))) 

mk-array-signal-dec-post(decl)(duqn*  ,signal-duqn*  ,driver-dnqn*  ,e,type-desc, direction, 

lower-bound, upper-bound, element-type-desc)  (t)  (p)  (u)  (v)(stk) 

=  let  element-type-spec  =  mk-type-spec(element-type-desc)(t)(p)  in 

let  element-waveform-type-spec  =  mk-waveform-type-spec(element“type-spec)  in 
nconc 

(mk-array-signal-dec-post-declaLre 

(signal-duqn*)(driver-duqn*)(element-type-spec) 

(element-waveform-type-spec)  (element-type-desc)  (direction)  (lower-bound) 

(upper-bound)  (t)  (p)  (v)(stk),ui  (v)  (stk)) 
where 

ui  =  Avi,stki. 

(mk-decl-sd 

(hd(p))(e)(£)(duqn*) 

(nconc 

(mk-array-signal-dec-post-init 

(signal-duqn* )  (driver- duqn* )  (e)(ty  pe-desc)  (direction) 

(lower-bound)  (upper-bound)  (element-type-desc) 
(waveform-type-desc(element-type-desc))(t)  (p)(v)  (stk ) , 
u(vi)(stki)))) 

mk-waveform-type-spec(type-spec) 

=  (case  second(type-spec) 

ARRAY  append(rest(type-spec),(mk- waveform- type-spec(last (type-spec)))), 

OTHERWISE  —  (TYPE  , WAVEFORM  , type-spec)) 

mk-array-signal-dec-post-declare(sign2d-duqn*)(driver-duqn*)  (element-type-spec) 

(element-waveform- type-spec)  (element-type-desc)  (direction)  (lower- bound)  (upper-bound)  (t)  (p)  (v)(stk) 

=  (null(signal-duqn*)-^  e, 

let  signal-duqn  =  hd(signal-duqn*) 

and  driver-duqn  =  hd(driver-duqn*)  in 
nconc 

(mk-array-signal-decl 

(signal-duqn)  (driver-duqn)  (element-type-spec) 

(element-waveform-type-spec)  (element-type-desc)  (direction)  (lower-bound) 

(upper-bound )  (t )  (p)  (v)  (stk) , 
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mk-array~signal~dec-post-declare 

(tl(signal-duqii*  ))  (tl(driver-duqn*  ))  (element- type-spec) 

(element- waveform- type-spec)  (element-ty  pe-desc)  (direction)  (lower-bound  ) 

(upper-bound)  (t)  (p)  (v)  (stk)) ) 

mk-array-signal-decl  (signal-name)  (driver-name)  (element- type-spec)  (element-waveform- type-spec) 
(element-type-desc)  (direction)  (lower-bound)  (upper-bound)(t)  (p)  (v)  (stk) 

=  nconc 

(mk-vhdl-axray-decl 

(signal-name)  (element- type-spec)  (direction)  (lower-bound) 

((null(upper-bound) 

— ►  (lower-bound  =  1  ^  (RANGE  , signal-name), 

mk-exp2(SUB  ,mk-exp2(ADD  , (RANGE  , signal-name), lower-bound), 1)), 
upper-bound)), 

(mk-ajray-decl 

(driver-name)  (element-waveform- type-spec)  (lower-bound) 

((null(upper-bound) 

— ►  (lower-bound  =  1  (RANGE  , driver-name), 

mk-exp2(SUB  ,mk-exp2(ADD  , (RANGE  , driver-name), lower-bound),!)), 
upper-bound))), 
mk-array-signal-elt-fn-decls 

(signal-name)  (driver-name)  (element-type-desc)  (lower-bound)  (upper-bound)  (t) 

(p)(v)(stk)) 

mk-array-signal-elt-fn-decls(signal-duqn)  (driver-duqn)  (element-type-desc)  (lower-bound)  (upper-bound) 
(t)(p)(v)(stk) 

=  (is- arr  ay- tdesc?  (element-type-desc) 

— ^  let  signal-elts  —  mk-slice-elt-names-to 

(signal-duqn)  (lower-bound)  (upper-bound ) 
and  driver-elts  =  mk-slice-elt-names-to 

(driver-duqn)  (lower-bound)  (upper-bound)  in 
let  expri  =  real-lb(element-type-desc)  in 
R  [[  expri  I  (t){p)(ki)(v)(stk) 
where 

ki  =  A(ei,fi),vi,stki. 

let  expr2  =  real-ub(element-type-desc)  in 
R|[expr2  ]  (t)(p)(k2)(vi)(stki) 
where 

k2  =  A(e2,f2),V2,Stk2. 

mk-  arr  ay-signal-elt-fn-decls-aux 

(signal-elts)(driver-elts)(elty(element-type-desc)) 

(ei)(e2)(t)(p)(v2)(stk2), 
let  scalar-signal-elts  =  mk-slice-elt-names-to 

(signal-duqn)  (lower-bound)  (upper-bound) 
and  scalar-driver-elts  =  mk-slice-elt-names-to 

(driver-duqn)  (lower-bound) (upper-bound)  in 
mk-scalar-signal-fn-decls(scalar-signal-elts, scalar-driver-elts)) 

mk-array-signal-elt-fn-decls-aux(signal-duqn*  )  (driver-duqn* )  (element-type-desc)  (lower-bound)  (upper-bound) 
(t)(p)(v)(stk) 

=  (null(signal-duqn*)— ►  e, 

let  signal-duqn  =  hd(signal-duqn*) 

and  driver-duqn  =  hd(driver-duqn*)  in 
nconc 

(mk-array-signal-elt-fn-decls 

(signal-duqn)(driver-duqn)(element-type-desc)(lower-bound)(upper-bound) 

W(p)(^)(stk), 


127 


mk-  array-sign  al-elt-fn-decls-  aux 

(tl(signal-duqn  * ) )  ( tl(driver-duqn  * ) )  (element- type-desc)  (lower-bound ) 

(upper-bound )  (t )  (p)  ( v)  (stk) ) ) 

mk-scalar-signal-fn-decls(signal-names, driver-names) 

=  (null(signal-names)— e, 

cons(mk-scalar-signal-fo-decl(hd(signal-names),hd(driver-naines)), 
mk-scalar-sign  al-fn-decls(  tl  (signal-names)  ,tl  (driver-names) ) ) ) 

mk-array-signal-dec-post-init  (signal-duqn* )  (driver-duqn* )  (e)  (type-desc)  (direction)  (lower-bound)  (upper-bound) 
(element-type-desc)(element-waveform-type-desc)(t)(p)(v)(stk) 

=  (direction  =  TO 

— »•  mk-axray-signal-dec-post-init-to 

(signal-duqn  *)(driver-duqn*)(e)(type-desc)(lower- bound)  (upper-bound) 
(element-type-desc)(element-waveform-type-desc)(t)(p)(v)(stk), 
mk-array-signal-dec-post-init-downto 

(sign  al-duqn*)(driver-duqn*)(e)  (type-desc)  (lower- bound)  (upper-bound) 

(element-type-desc)  (element- waveform- type-desc)  (t)  (p)  (v)(stk) ) 


mk-array-signal-dec-post-init-to(signal-duqn*)(driver-duqn*)(e)(type-desc)(lower-bound)  (upper-bound) 
(element-type-desc)  (element-waveform-type-desc)(t)(p)(v)  (stk) 

=  (is-array-tdesc?  (element-type-desc) 

—►  let  expri  =  real-lb(element-type-desc)  in 
R  [  expri  1  (t)(p)(ki  )(v)(stk) 
where 

ki  =  A(ei,fi),vi,stki. 

let  expr2  =  real-ub(element-type-desc)  in 
R  I  expr2  1  (t)(p)(k2)(vi)(stki) 
where 

k2  =  A(e2,f2),V2,stk2. 

mk-array-signal-dec-post-init-elt-arrays-to 
(signal-duqn*  )(driver-duqn*)(e)(type-desc) 
(lower-bound)(upper-bound)(element-type-desc) 

(direction(element-type-desc))(ei  )(e2)(t)(p)(v2)(stk2 ), 
mk-array-signal-dec-post-init-elt-scalars-to 

(signal-duqn*  )(driver-duqn*)(e)(type-desc)  (lower- bound)  (upper-bound) 
(element-type-desc)(element-waveform-type-desc)(t)(p)(v)(stk)) 

mk-array-signal-dec-post-init-downto(signal-duqn*)(driver-duqn*)(e)  (type-desc)  (lower-bound)  (upper-bound) 
(element-type-desc)  (element- waveform- type-desc)  (t )  (p)  ( v)  (stk) 

=  (is- array-tdesc?(element- type-desc) 

— ^  let  expti  =  real-lb(ele men t- type-desc)  in 
R  lexpn  1  (t)(p)(ki)(v)(stk) 
where 

ki  =  A(ei,fi),vi,stki. 

let  expr2  =  re al-ub (element-type-desc)  in 
R  I  expr2  I  (t)(p)(k2)(vi)(stki) 
where 

k2  =  A(e2,f2),V2,Stk2. 

mk-arr  ay-signal-dec-post-ini  t-elt- array  s-downto 
(signal-duqn*  )(driver-duqn*)(e)(type-desc) 

(lower-bound)  (upper-bound)  (element-type-desc) 

(direction  (element-type-d  esc)  )(ei  )(e2)(t)(p)(v2)(stk2 ), 
mk-array-signal-dec-post-init-elt-scalairs-downto 

(signal-duqn  * )  (driver-duqn* )  (e)  (type-desc)  (lower-bound)  ( upper-bound) 

(element-type-desc)  (element-waveform-type-desc)(t)(p)(v)  (stk)) 
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mk- array-sign  al-dec-post-mit“elt-axrays-to(sigii  al-duqn  )(driver-dTiqn*  )(e)  (type-desc) 

(lower-bound)  (upper-bound)  (el  t-type-desc)  (elt-direction)  (elt-lower-bound)  (elt-upper-bound)  (t)  (p)  (v)  (stk) 
=  (nuU(signal-duqn*  )—*■€, 

let  signal-duqn  =  hd(signal-duqn*) 

and  driver-duqn  =  hd(driver-duqn*)  in 
nconc 

(let  signal-elts  =  mk-sHce-elt-names-to 

(signal-duqn)  (lower-bound)  (upper-bound) 
and  driver-elts  =  mk-slice-elt-names-to 

(driver-duqn)  (lower-bound)  (upper-bound )  in 
mk-axray-signal-dec-post-init-aux 

(signal-elts)  (driver-elts)  (e)  (elt- type-desc)  (elt-direction) 

(elt-lower-bound)  (elt-upper-bound)  (elty  (elt-type-desc)) 

( waveform- type-desc(elty  (elt- type-desc) ))  (t)(p)  (v)  (stk) , 
mk-array-signal-dec-post-init-elt-arrays-to 

(tl(signal-duqn*))(tl(driver-duqn’*'))(tl(e))(type-desc)(lower-bound) 

(upper-bound )  (elt-type-desc)  (elt-direction)  (elt-lower-bound) 

(elt-upper-bound)  (t)  (p)  (v)  (stk))) 

mk-ajray-signal-dec-post-init-elt-arrays-downto  (signal-duqn* )  (driver-duqn* )  (e)  (type-desc) 
(lower-bound)(upper-bound)  (elt-type-desc)  (elt-direction)  (elt-lower-bound)  (elt-upper-bound)  (t)  (p)  (v)  (stk) 
=  (null  (signal-duqn*  )“►  e, 

let  signal-duqn  =  lid(signal-duqn*) 

and  driver-duqn  =  hd(driver-duqn* )  in 
nconc 

(let  signal-elts  =  mk-slice-elt-names-downto 

(signal-duqn)  (lower-bound)  (upper-bound) 
and  driver-elts  =  mk-slice-elt-names-downto 

(driver-duqn)  (lower-bound)  (upper-bound )  in 
mk-zurray-signal-dec-p  ost-init-aux 

(signal-elts)  (driver-elts)  (e)  (elt-type-desc)  (elt-direction) 

(elt-lower-bound)  (elt-upper-bound)  (elty  (elt-type-desc)) 

( waveform- type-desc(elty  (elt- type-desc)))  (t)  (p)(v)  (stk), 
mk-array-signal-dec-post-init-elt-arrays-downto 

(tl(signal-duqn*))(tl(driver-duqn*))(tl(e))  (type-desc)  (lower-bound) 

(upper-bound)  (elt-type-desc)  (elt-direction)  (elt-lower-bound) 

(elt-upper-bound)  (t)(p)(v)(stk))) 

mk-array-signal-dec-post-init-aux(signal-duqn* )  (driver-duqn* )  (e)  (type-desc)  (direction) 

(lower-bound)  (upper-bound)  (element-type-desc)  (element-  waveform- type-desc)  (t)  (p)  (  v)  (stk) 

=  (null(signal-duqn*  )—»■£, 

let  signal-duqn  =  hd(signal-duqn*) 

and  driver-duqn  =  hd(driver-duqn*)  in 
nconc 

(mk-  array-sign  al-dec-post-init 

((signal-duqn))  ((driver-duqn)  )(hd(e))  (type-desc)  (direction) 

(lower-bound)  (upper-bound)  (element-type-desc)  (element- waveform- type-desc) 

(t)(p)(v)(stk), 

mk-array-signal-dec-post-init-aux 

(tl(signal-duqn*  ))(tl(driver-duqn*  ))(tl(e))(  type-desc)  (direction) 

(lower-bound)  (upper-bound)  (element-type-desc)  (element- waveform- type-desc) 

(t)(p)(v)(stk))) 

mk-array-signal-dec-post-init-elt-scalars-to(signai-duqn*)(driver-duqn*)(e)(type-desc) 

(lower-bound)(upper-bound)(element-type-desc)(element-waveform-type-desc)(t)(p)(v)(stk) 

=  (null(signal-duqn*)— ►  e, 

let  signal-duqn  =  hd(signal-duqn*) 
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and  driver-duqn  =  hd(driver-duqn*)  in 
let  initial-waveforms  =  init-array-signal-to 

(sign  al-duqn)  (driver-duqn)  (e)  (type-desc) 

(element-type- desc)  (lower-bound)  (upper-bound)  in 

nconc 

(cissign-array-to 

(driver-duqn)  (initial- waveforms)  (element- waveform- type-desc) 

(lower-bound)  ( 0) , 

mk-array-signal-dec-post-init-elt-scalars-to 

(tl(signal-duqn*))(tl(driver-duqn*))(e)(  type-desc)  (lower-bound) 

(upper-bound)  (element-type-desc)(  element- waveform- type-desc)  (t)(p)(v) 

(stk))) 

mk-array-signal-dec-post-init-elt-scalars-downto(signal-duqn*)(driver-duqn*)(e)(type-desc) 
(lower-bound)  (upper-bound)  (element- type-desc)  (element-waveform-type-desc)  (t)  (p)  ( v)  (stk) 
=  (null(signal-duqn*)— ►  e, 

let  signal-duqn  =  hd  (sign  al-duqn  * ) 

and  driver-duqn  =  hd(driver-duqn*)  in 
let  initial- waveforms  =  init-ajray-signal-downto 

(signal-duqn)  (driver-duqn)  (e)  (type-desc) 
(element-type-desc)(lower-bound)(upper-bound)  in 

nconc 

(assign-array-downto 

(driver-duqn)  (initial- waveforms)  (element-waveform-type-desc) 

(upper-bound)  (0) , 

mk-array-signal-dec-post-init-elt-scalars-downto 

(tl(signal-duqn*  ))(tl(driver-duqn*  ))(e)(  type-desc)  (lower-bound) 

(upper-bound)  (element-type-desc)  (element-waveform-type-desc)  (t)  (p)  (v) 

(stk))) 


(D7)  D  I  ETDEC  id  id+  J  (t)(p)(u)(v)(stk) 

=  (mk-decl-sd 

(hd(p))(£)(£)(e) 

(nconc(mk-etdec-post((id))(t)(p),u(v)(stk)))) 

mk-etdec-post(type-mark)  (t)  (p) 

=  let  d  =  lookup-type-desc(type-mark)(t)(p)  in 
mk-enumlit-rels(d)  (literals(d)) 

mk-enumlit-rels(d)(id* ) 

=  (null(tl(id*))— *■  e, 
let  idi  =hd(id*) 

andidz  =  hd(tl(id*))  in 

cons(mk-rel(d)((PRED  ,idi  ,id2)),ink-enumlit-rels(d)(tl(id* )))) 


The  translation  of  an  enumeration  type  declaration  emits  an  SDVS  declaration  of  the  enu- 
meration  type. 

(D8)  D  H  ATDEC  id  discrete-range  type-mark  |  (t)(p)(u)(v)(stk) 

=  let  (direction, expri  ,expr2)  =  discrete- range  in 

let  lower-bound  =  (direction  =  TO  — ►  expri,  expr2) 

and  upper-bound  =  (direction  =  TO  expr2,  expri)  in 
attributes-low-high 

((id, (INTEGER)  , lower-bound, uppor-bound))(t)(p)(u)(v)(stk) 
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attributes-low-high  (id, attribnte-type-mark, lower-bound, upper-bound)  (t)  (p)  (u)  (v)  (stk) 

=  let  decli  =  (DEC  ,SYSGEN  ,(mk-tick-low(id)),attribute-type-inark, lower-bound) 

and  deck  =  (DEC  ,SYSGEN  ,(mk-tick-lugh (id)), attribute-type-mark, upper-bound)  in 
let  decl'*'  =  (decli  ,decl2 )  in 
D  I  decl-*-  J  (t)(p)(u)(v)(stk) 

mk-tick-low(id)  =  catenate(id,“’LOW”) 

mk-tick-higb(id)  =  catenate(id,‘‘^HIGH”) 

An  array  type  declaration  declares  and  initializes  the  ’low  and  ’high  array  type  attributes. 

(D9)  D  I  PACKAGE  id  decl*  opt-id  ]|  (t)(p)(u)(v)(stk) 

=  D  [[decl*  1  (t)(%(p)(id))(u)(v)(stk) 

The  declarations  contained  within  a  package  are  translated  as  usual,  but  in  the  package’s 
context  in  the  TSE,  via  the  extended  path  %(p)(id). 

(DIO)  D  I  PACKAGEBODY  id  decl*  opt-id  ]  (t)(p)(u)(v)(stk) 

=  let  pb-exit-desc  =  <*PACK  AG  E-BODY-EXIT*  ,id,p,Av,s.u(v)(s)>  in 
D  [[decl*  ]  (t)(%(p)(id))(ui)(v)(stk-push(pb-exit-desc)(stk)) 
where  ui  =  Avi,stki.pkg-body-exit(vi)(stki) 

pkg-body-exit  ( v)  (stk) 

=  let  <tg,qname,pth,g>  =  hd(stk)  in 
(case  tg 

*STKBOTTOM*  — ►  model-execution-complete(qname), 

*UNDECLARE*  — ►  g(Avv,s.pkg-body-exit(vv)(s))(v)(stk), 

(*BEGIN*  )  — »■  pkg-body-exit(v)(stk-pop(stk)), 

(*PACKAGE-BODY-EXIT*  ,*LOOP-EXIT*  ,*SUBPROGRAM-RETURN*  )  ^  g(v)(stk-pop(stk)), 
OTHERWISE 

— ►  impl-error( “Unknown  execution  stack  descriptor  with  tag;  "'a”,tg)) 

The  declarations  contained  in  a  package  body  are  translated  in  the  package’s  context  in 
the  TSE,  via  the  extended  path  %(p)(id).  A  *PACKAGE-BODY“EXIT*  descriptor 
is  first  pushed  onto  the  execution  stack  to  prevent  the  package’s  declarations  from  being 
unelaborated  when  the  package  body  is  exited. 

(Dll)  D  I  PROCEDURE  id  proc-pax-spec*  type-mark  |  (t)(p)(u)(v)(stk)  =  u(v)(stk) 

(D12)  D  |[  FUNCTION  id  func-pax-spec*  type-mark  ]  (t)(p)(u)(v)(stk)  =  u(v)(stk) 

(D13)  D  |[  SUBPROGBODY  subprog-spec  decl*  seq-stat*  opt-id  ]  (t)(p)(u)(v)(stk) 

=  u(v)(stk) 

Subprogram  declarations  need  no  Phase  2  translation,  nor  do  subprogram  bodies. 

(D14)  D  I  USE  dotted-name'*'  |  (t)(p)(u)(v)(stk)  =  u(v)(stk) 

The  effect  of  USE  clauses  has  already  been  recorded  in  the  TSE  during  Phase  1;  no  further 
Phase  2  translation  is  necessary. 
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8.4*5  Concurrent  Statements 

(CSO)  ^  le  I  (t)(p)(u)(v)(stk)  =  u(v)(stk) 


(CSl)  CS  fcon-stat  con-stat*  |  (t)(p)(u)(v)(stk) 

=  CS  [[  con-stat  ]]  (t)(p)(ui)(v)(stk) 

where  ui  =  Av,stk.CS  [con-stat*  |  (t)(p)(u){v)(stk) 


A  list  of  concurrent  statements  is  translated  in  order,  from  first  to  last. 

(CS2)  CS  [  PROCESS  id  decl*  seq-stat*  opt-id  ]  (t)(p)(u)(v)(stk) 

=  let  Pi  =  %(p)(id)  in 
(mk-decl-sd 

(hd(p))(e)(e)(e) 

( (make- vlidl-process-elaborate(id )  (t )  (pi )  (seq-stat  *)(ui)(v)  (stk) ) ) ) 
where  ui  =  Av,stk.D  |  decl*  |  (t)(pi)(u)(v)(stk) 


8,4*6  Sequential  Statements 

(SSO)  SS  [  £  J  (t)(p)(c){v)(stk)  =  c(v)(stk) 


(SSl)  SS  [[  seq-stat  seq-stat*  ]|  (t)(p)(c)(v)(stk) 

=  ^  I  seq-stat  J  (t)(p)(ci)(v)(stk) 

where  ci  =  Av,stk.SS  [  seq-stat*  ]  (t)(p)(c)(v)(stk) 


A  list  of  sequential  statements  is  translated  in  order,  from  first  to  last. 

(552)  ^  I  NULL  1  (t)(p)(c)(v)(stk)  =  c(v)(stk) 

NULL  statements  have  no  effect. 

(553)  SS  [  VARASSN  ref  expr  J  (t)(p)(c)(v)(stk) 

=  let  d  =  T  [[  ref  ]]  (t)(p)  in 

E  [[  ref  I  (t)(p)(ki)(v)(stk) 
where 

ki  =  A(ei,fi),vi,stki. 

R  [  expr  1  (t)(p)(k2)(vi)(stki) 
where 

k2  =  A(e2,f2),V2,Stk2. 

(mk-sd 

(hd(p))(nconc(fi,f2))(£)((ei)) 

(nconc 

(assign(d)((ei  ,e2)), 
c(v2)(stk2)))) 


assign  (d)  (target,  value) 

=  (case  tag(d) 

(*BOOL*  ,*INT*  ,*REAL*  *ENUM1'YPE*  ,*POLY*  ,*VHDLTIME*  ,*WAVE*  ) 

— ►  (mk-rel(d)((EQ  ,pound(target), value))), 

*TIME*  — >  (mk-rel(int-type-desc())((EQ  ,pound(target), value))), 
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*ARRAYTYPE* 

«->  (is-bitvector-tdesc?(d) 

— ►  (is-constant-bitvector?  (value) 

— ►  (case  direction(d) 

TO 

— ►  assign-array-to 

(t2Lrget)(value)(elty(d)) ((ORIGIN  ,target))(0), 

DOWNTO 

— assign-airay-downto 

(target)(value)(elty(d)) 

(mk-exp2 

(SUB, 

mk-exp2(ADD  , (ORIGIN  , target), (RANGE  ,tztrget)),l))(0), 
OTHERWISE iinpl~error( “Illegal  direction:  “a”, direction 

m, 

(mk-rel(d)((EQ  ,pound(target), value)))), 
is-string-tdesc?  (d) 

— >•  (is-constant-string?(  value) 

— »•  (case  direction(d) 

TO 

— ►  assign-array-to 

(target) (value) (elty(d)) ((ORIGIN  ,tajget)) (0) , 

DOWNTO 
— ►  assign-array-downto 

(target)  (value)  (elty(d)) 

(mk-exp2 
(SUB  , 

mk-exp2(ADD  , (ORIGIN  , target), (RANGE  ,target)),l))(0), 
OTHERWISE  — ►  impl-error(“IllegcLl  direction:  “'a”, direction 

(d)))> 

(mk-rel(d)((EQ  ,pound(target), value)))), 

(not-dotted-expr-p(value) 

— ►  (case  direction(d) 

TO  — ►  assign-array-to 

(target) (value) (elty(d))( (ORIGIN  ,target))(0), 

DOWNTO 


— ►  assign-array-downto 

(target)  (value)  (elty  (d)) 

(mk-exp2 
(SUB  , 

mk-exp2(ADD  , (ORIGIN  , target), (RANGE  , target)), 1))(0), 
OTHERWISE impl-error( “Illegal  direction:  "a”, direction 

m, 

(mk-rel(d)((EQ  ,pound(target), value))))), 

♦RECORDTYPE* 


— ►  (not-dotted-expr-p(value)— >  assign-record(components(d))((target, value)), 
(ink-rel(d)((EQ  ,pound(target), value)))), 

OTHERWISE —►  impl-error( “Unrecognized  Stage  2  VHDL  type  tag:  ''a”,tag(d))) 


The  translation  of  a  variable  assignment  statement  first  translates  its  left  and  right  parts, 
obtaining  translated  expressions  and  guard  formulas.  Note  that  the  left  part  is  translated 
by  E  and  is  therefore  not  dereferenced  (by  application  of  the  dot  function),  as  it  would  be 
if  R  were  used  instead.  The  precondition  of  the  generated  SD  consists  of  the  combined  lists 
of  guard  formulas,  and  its  mod  list  is  the  translated  left  part.  Its  postcondition  asserts  the 
new  value  of  the  left  part  place,  and  then  asserts  succeeding  SDs  by  appropriately  using  the 
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continuation  c.  Assignments  in  Stage  2  VHDL  can  be  scalar  or  can  assign  entire  arrays. 
Entire  array  assignments  are  asserted  element  by  element  via  auxiliary  semantic  function 
array-signal-assignment . 

(SS4)  SS  [[  SIGASSN  delay-type  ref  waveform  |  (t)(p)(c)(v)(stk) 

=  let  d  =  T  [[  ref  ]]  (t)(p)  in 
(case  tag(d) 

(*BOOL*  *BIT*  ♦INT*  *REAL*  *TIME*  *ENUMTYPE*  ) 

— »■  scalar-signal- assignment 

(seq-stat)  (delay-type)  (ref )( waveform)  (d)  (t)(p)  (c)(v)  (stk) , 

*ARRAYTYPE* 

— ►  array-signal- assignment 

(delay-type)(ref)(  waveform)  (t  )(p)  (c)  (v)  (stk) , 

OTHERWISE 

— ►  impl-error 

(“Signal  assignment  not  implemented  for  object  ”,ref, 

“  of  type  ”4)) 


scalar-signal-assignment  (seq-stat)  (delay-type)(ref )  (waveform)  (d)  (t)  (p)  (c)  ( v)  (stk) 

=  EIrefI(t)(p)(k)(v)(stk) 
where 

k  =  A(signal-name,gu<Lrd),v,stk. 

let  driver-name  =  name-driver(signal-name)  in 
W  [[  waveform  ]  (t)(p)(wave-cont)(v)(stk) 
where 

wave-cont  =  A(trans*, guard*  ),v, stk. 

let  all-guards  =  nconc(guard, guard*)  in 
(delay- type  =  TRANSPORT 
— »■  (mk-sd 

(hd  (p) )  (all-gu  ards)  (e)  ( (driver-name)  ) 

(nconc 

(assign 

( waveform- type-desc(d)) 

((driver-name, 

mk-transport-update 

(dot(driver-name))(trans*))), 

c(v)(stk)))), 

let  earliest-new-transaction  =  hd(trans*)  in 
(mk-sd 
(hd(p)) 

(cons  (mk- preemption 

(dot  (driver-name)) 

(earliest-new-transaction) ,  all-guards)  )(£)((  driver-name) ) 

(nconc 

(assign 

(  waveform- type-desc(d)) 

((driver-name, 

mk-inertial-update 

(dot  (driver-  name))  (trams*  ))), 
c(v)(stk))), 

mk-sd 

(hd(p)) 

(cons(mk-not 

(mk-preemption 

(dot(drivei-naLme)) 

(earliest-new-transaction)), 
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aJl-guards))  (e)  ( (driver-name)) 

(nconc 

(assign 

(waveform-type-desc(d)) 

((driver-name, 

mk-inertial-update 

(dot  (driver-name))  (trans”" ))) , 
c(v)(stk))))) 

waveform- type-desc(type-desc)  =  < WAVEFORM  ,e,*WAVE*  , (STANDARD)  ,tt,type-desc> 

mk-transport-update(dot-driver)(trans*) 

=  cons( TRANSPORT-UPDATE  ,cons(dot-driver,trans*)) 

mk-preemption(dot-driver)(trans  action) 

=  (PREEMPTION  , dot-driver, transaction) 

mk-inertial-update(dot-driver)  (trans* ) 

=  cons(INERTIAL-UPDATE  ,cons(dot-driver, trans*)) 

mk-not(e)  =  (NOT  ,e) 


array-signal-assignment(delay-type)  (ref)  (waveform)  (t)  (p)  (c)  (v)  (stk) 

=  let  seq-stat"*"  =  cascaxie-array-signal-assignment 

(delay-type) (ref)  (waveform) (t) (p) (c) (v) (stk)  in 
SS  I  seq-stat'*’  |  (t)(p)(c)(v)(stk) 

cascade-array-signal-assignment  (delay-type)  (ref)  (agg-wave)  (t)  (p)  (c)  (v)  (stk) 

=  let  array-refs  =  mk-axray-refs(ref)(t)(p)(c)(v)(stk) 

and  element- waves  ==  mk-element-waves(agg-wave)(t)(p)(c)(v)(stk)  in 
mk-scalar-signal-assignments(delay-type)  (array-refs)  (element- waves) 

mk-scalar-signal-assignments(delay-type)  (array-refs)  (element- waves) 

=  (null(array-refs)-+  e, 

cons((SIGASSN  , delay-type, hd(array-refe),hd(element-waves)), 
mk-scalar-sign  al- assignments 

(delay-type)  (tl(array-refs))  (tl(element- waves) ) )) 

mk-array-refs(ref )  (t)  (p)  (c)  (v)  (stk) 

=  let  d  =  T  [[  ref  I  (t)(p)  in 
let  direction  =  direction  (d) 
and  expri  =  115(d) 
and  expr2  =  ub(d)  in 
R  [  expn  1  (t)(p)(ki)(v)(stk) 
where 

ki  =  A(ei,fi),vi,stki. 

R  Iexpr2  I  (t)(p)(k2)(vi)(stki) 
where 

k2  =  A(e2,f2),V2,stk2. 

let  sref  =  iid(second(ref)) 

and  indices  =  (direction  =  TO 

gen- ascending-in  dices  (ei)  (62), 
gen-descending-indices(ei  )(e2))  in 
mk-array-refs-aux(sref )  (indices) 


135 


gen“ascending-indices(min)(inax) 

=  (min  >  max  — ►  e,  cons(minjgen“ascending-indices(min+l)(max))) 
gen“descending-indices(min)  (max) 

=  (max  <  min  — ►  e,  cons(max,gen-descending-indices(min)(max— l))) 

mk-array-refs-aux(sref)(indices) 

=  (null(indices)— e, 

cons((REF  ,(sref, (INDEX  ,(NUM  ,hd(indices))))), 
mk-  ctrray-refs-  aux(sref )  ( tl(in  dices ) ) ) ) 

mk-element-waves(agg-wave)(t)(p)(c)(v)(stk) 

=  let  aggregate-transactions  =  second(agg-wave)  in 

let  element-transaction-lists  =  mk-element-transaction-lists 

(aggregate-transactions)  ( t )  (p)  (c)  ( v)  (stk)  in 
mk-element-waves-aux(element-transcLCtion-lists) 

mk-element-transaction-lists(aggreg  ate- transactions)  (t)  (p)  (c)  ( v)(stk) 

=  (null(aggregate-transactions)— ►  e, 

cons(mk-transaction-list(hd(aggregate-transactions))(t)(p)(c)(v)(stk), 

mk-element-transaction-lists(tl(aggregate-transactions))(t)(p)(c)(v)(stk))) 

mk-transaction-list  (  agg-trans)  (t)  (p)  (c)  ( v)  (stk) 

=  let  agg-value-expr  =  second  (agg-trans) 

and  time-expr  =  third(agg-trans)  in 
let  element-value-exprs  =  (case  hd(agg-value-expr) 

REF 

— ^  mk- array-refs ( agg- vcJue-expr )  (t )  ( p )  (c)  ( v )  (st k) , 
(BITSTR  ,STR  ,PAGGR  )  }id(tl(agg-value-expr)), 
OTHERWISE 
— ►  impl-error 

(“Illegal  aggregate  in  transaction:  ”, 
agg-value-expr))  in 

mk-simultaneous-transactions(element-value-exprs)(iime-expr) 

mk-simultaneous-transactions(expr*)(  time-expr) 

=  (null(expr*)— >  s, 

cons( (TRANS  ,hd(expr''), time-expr), 
mk-simultaneous-transactions(tl(expr*))  (time-expr))) 


(SS5)  SS  [[  IF  cond-pcirf’'  else-part  J  (t)(p)(c)(v)(stk) 

=  let  seq-stat*  =  else-part  in 

gen-if(cond-part"*')(seq-stat*)(seq-stat)(t)(p)(c)(v)(stk) 

gen-if(cond-part  * )  (seq-stat* )  (ifclause)  (t)(p)(c)  ( v)  (stk) 

=  (null(cond-paJt*)“-^  SS  [[  seq-stat*  J  (t)(p)(c)(v)(stk), 
let  (expr,seq-statj )  =  hd(cond-part*)  in 
R  [[  expr  1  (t)(p)(k)(v)(stk) 
where 

k  =  A(e,f),vi,stki. 

(mk-sd 

(hd(p))(cons(e,f))(e)(£) 

(let  Cl  =  Av2,stk2.SS  [seq-stat J  |  (t)(p)(c)(v2)(stk2)  in 
ci(vi)(stki)), 
mk-sd 

(lid(p))(cons(mk-not(e),f))(e)(r) 

(let  C2  =  AvsjStka- 
gen-if 

(tl(cond-part*))(seq-stat*)(e)(t)(p)(c)(v3)(stk3)  in 
C2(vi)(stkl)))) 
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The  abstract  syntax  of  a  Stage  2  VHDL  IF  statement  consists  of  a  finite,  nonempty  list 
of  cond-parts  followed  by  a  (possibly  empty)  else-part.  Each  cond-part  corresponds  to 
an  IF  expr  THEN  seq-stats  or  an  ELSIF  expr  THEN  seq-stats  construct  in  the  concrete 
syntax.  Thus  each  cond-part  must  be  translated  into  two  SDs:  one  for  the  case  where  expr 
evaluates  to  true  and  the  other  where  it  evaluates  to  false.  The  translation  is  performed  by 
auxiliary  semantic  function  gen- if,  which  takes  as  arguments  (among  others):  the  cond- 
part  list  and  the  seq-stats  comprising  the  else-part.  Successive  recursive  calls  of  gen-if 
process  the  first  element  of  their  cond-part  list,  reducing  it  to  empty.  When  the  cond- 
part  list  is  empty,  gen-if  produces  the  translation  of  the  else-part.  The  function  mk-not 
constructs  the  logical  negation  of  its  argument. 

(SS6)  SS  I  CASE  expr  case-alt+  J  (t)(p)(c)(v)(stk) 

=  R  [[  expr  1  (t)(p)(k)(v)(stk) 
where 

k  =  A(e,f),vi,stki. 

let  d  =  T  I  expr  |  (t)(p)  in 
geii-case(e)  (d)  ( (e,f) )  (case-alt  "*■ )  ( t )  (p)  (c)  ( vi )  (stki ) 


gen-case(g)  (d)  (e,f)  (case-alt  * )  ( t )  (p)  (c)  ( v)  (stk) 

=  (niill(case-alt’*)— +  e, 

let  (h,sd)  =  gen-alt(g)(d)((e,f))(hd(case-alt*))(t)(p)(c)(v)(stk)  in 
cons(sd,gen-case(append  (g,h))  (d)  ( (e,f) )  (tl(case-alt  * ) )  (t )  (p)  (c)  ( v)  (stk)) ) 


gen-alt  (g)  (d)  (e,f)  (case-alt)  ( t )  (p)  (c)  ( v)  (stk) 

=  let  case- alt-tag  =  hd (case-alt)  in 
(case-alt-tag  =  CASEOTHERS 
— ►  let  seq-stat*  =  hd(tl(case-alt))  in 

let  Cl  =  AvijStki.SS  fseq-stat*  |  (t)(p)(c)(vi)(slki)  in 

mk-sd 

(iid(p))  (append(f,  (mk-not  (mk-ors(g)))))(e)(e) 
(ci(v)(stk))), 

let  (case-set, seq-st at*)  =  tl(case-alt)  in 
let  Cl  =  Avi  ,stki  .SS  IT  seq-stat*  |  (t)(p)(c)(vi)(stki)  in 
let  h  =  append  (f, gen-guard  (case-set  )(d)(e)(t)(p))  in 
(h,itik-sd(hd(p)  )  (h)  (e)  (e)  (ci  (v)  (stk) )) ) 


mk-ors(disjs) 

=  (case  length (disjs) 

1  — »■  hd  (disjs), 

2  — ►  mk-or(hd(disjs))(hd(tl(disjs))), 

OTHERWISE  — ►  mk-or(hd(disjs))(mk-ors(tl(disjs)))) 


mk-or(el,e2) 

=  (nuU(el)— ►  e2, 
null(e2)— >  el, 
consp(el)A  consp(e2) 

(hd(el)=  OR 

— ►  (hd(e2)=  OR  — »■  cons(OR  ,append(tl(el),tl(e2))),  append(el,(e2))), 
hd(e2)=  OR  nconc((OR  ,el),tl(e2)), 

(OR  ,el,e2)), 

(OR  ,el,e2)) 
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gen-guard(discrete-range*)(d)(e)(t)(p) 

=  (null(discrete-range*)— ^  e, 

let  (direction , expr  1  ,expr2)  =  hd (discrete-range*)  in 
R  lexpri  ]  (t)(p)(ki)(£)(e) 
where 

ki  =  A(ei,fi),vi,stki. 

(expri  =  expr2 

—►let  h  =  nconc(fi,(mk-rel(d)((EQ  ,e,ei))))  in 
(null(tl(discrete-range*))— ►  h, 

(cons(OR  , 

cons(hd(h),gen-guard(tl(discrete-range*))(d)(e)(t)(p))))), 
R  [[expr2  1  (t)(p)(k2)(vi)(stki) 
where 

k2  =  A(e2,f2),V2,Stk2. 
let  h  =  nconc 

(fl,f2, 

(direction  =  TO 

^  ((AND  ,mk-rel(d)((GE  ,e,ei)), 
mk-rel{d)((LE  ,e,e2)))), 

((AND  ,ink-rel(d)((LE  ,e,ei)), 
mk-rel(d)((GE  ,e,e2))))))  in 

(cons (OR  , 
cons(hd(h), 

gen-guard(tl(discrete-range*))(d)(e)(t)(p)))))) 


The  abstract  syntcix  of  a  CASE  statement  consists  of  a  selector  expression  followed  by  a 
finite,  nonempty  list  of  case  alternatives.  Each  case  alternative  consists  of  a  list  of  sequential 
statements,  preceded  either  by  a  nonempty  list  of  discrete  ranges  (indicated  by  CASECHOICE) 
or  (for  the  last  alternative  only)  by  CASEOTHERS.  Each  of  these  discrete  range  lists  represents 
a  set  of  values,  called  a  case  selection  set.  If  the  selector  expression  evaluates  to  one  of  these 
values,  then  the  corresponding  sequential  statement  list  is  executed,  after  which  control 
passes  to  the  successor  of  the  CASE  statement.  CASEOTHERS  represents  a  case  selection  set 
that  is  the  complement  of  the  union  of  all  of  the  other  case  selection  sets  relative  to  the  set 
of  values  in  the  selector  expression’s  type.  Phase  1  has  ensured  that  no  case  selection  sets 
intersect. 

The  Phase  2  translation  of  a  CASE  statement  first  processes  its  selector  expression,  obtaining 
a  translated  expression  and  a  guard  formula.  The  translation  is  completed  by  the  function 
gen-case,  which  takes  the  following  arguments: 


•  a  formula,  initially  empty,  that  is  the  disjunction  of  formula>s  representing  the  case 
selection  sets  of  case  alternatives  translated  so  far  in  this  CASE  statement  —  this  for¬ 
mula’s  negation  represents  the  case  selection  set  indicated  by  CASEOTHERS  (if  present) 
in  the  CASE  statement; 

•  the  basic  type  of  the  selector  expression  (and  the  case  selection  set  elements); 

•  the  selector  expression’s  translation  and  guard  formula; 

•  a  list  of  case  alternatives. 
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Each  successive  recursive  call  to  gen-case  processes  the  first  element  of  its  case  alternative 
list,  reducing  the  list  to  empty,  at  which  time  processing  terminates  normally.  Each  case 
alternative  is  processed  by  auxiliary  semantic  function  gen-alt,  which  returns  a  formula 
representing  the  case  selection  set  for  that  alternative  and  an  SD  representing  the  execution 
of  the  corresponding  sequential  statement  list.  This  formula  and  SD  are  collected  by  gen- 
case;  the  final  result  returned  by  gen-case  is  a  list  of  SDs.  The  function  gen-guard 
converts  discrete  range  lists  into  formulas  representing  case  selection  sets.  The  function 
mk-or(formulai5  formula2)  constructs  the  logical  disjunction  of  two  formulas;  if  one  of 
the  formulas  is  empty,  then  mk-or  ignores  it  and  returns  the  nonempty  one. 

(SS7)  ^  [  LOOP  id  seq-stat*  opt-id  ]  (t)(p)(c)(v)(stk) 

=  let  Ip-desc  =  <*LOOP-EXIT*  ,id,p,Av,s.c(v)(s)>  in 
let  stki  =  stk-push(lp-desc)(stk)  in 
loop-iiifinite(seq-stat)(id)(seq-stat*  )(t)(%(p)(id))(c)(v)(stki ) 

loop-iniinite(seq-stat)(id)  (seq-stat  *  )(t)  (p)  (c)  (v)  (stk) 

=  let  Cl  =  Avi  jStki . 

SS  IF  seq-stat*  ]  (t)(p)(c2)(vi)(stki) 
where 

C2  =  Av2,stk2. 

loop-infinite  (seq-stat)  (id)  (seq-stat  *  )(t)(p)(c)(v2)(stk2 )  in 
(mk-sd(hd(p))  (e)  (e)  (e)  (ci  (v)  (stk)  )) 


(SS8)  SS  ([  WHILE  id  expr  seq-stat*  opt-id  |  (t)(p)(c)(v)(stk) 

=  let  Ip-desc  =  <*LOOP-EXIT*  ,id,p,Av,s.c(v)(s)>  in 
let  stki  =  stk-push(lp>-desc)(stk)  in 
loop-while(seq-st  at)  (id)  (expr)  (seq-stat  *)(t)(%(p)  (id))  (c)(v)(stki) 

loop- while!  seq-stat )  (id)  (expr)  (seq-stat* )  (t)  (p)  (c)  ( v)  (stk) 

=  R  I  expr  1  (t)(p)(k)(v)(stk) 
where 

k  =  A(ejf),vi,stki. 

let  Cl  =  Av2,stk2. 

SS  |[  seq-stat*  J  (t)(p)(c2)(v2)(stk2) 

where 

C2  =  AvsjStks. 

loop-while 

(seq-stat)  (id)  (expr)  (seq-stat* )  (t)  (p)(c)  (vs  ) 
(stka)  in 

(mk-sd 

(hd(p))(cons(e,f))(e)(e)(ci(vi)(stki)), 

mk-sd 

(hd(p))(cons(mk-not(e),f))(c)(£) 

(c(vi)(stk-pop(stki )))) 


(SS9)  SS  I  FOR  id  ref  discrete-range  seq-stat*  opt-id  |  (t)(p)(c)(v)(stk) 
=  let  d  =  T  [[  ref  I  (t)(p)  in 

let  Ip-desc  =  <*LOOP-EXIT*  ,id,p, 

Av,s.c(v)(s)>  in 

let  stko  =  stk-push(lp-desc)(stk)  in 
let  (direction, expri  ,expr2)  =  discrete-range  in 
R  I  expn  1  (t)(p)(ki)(v)(stk) 
where 
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ki  =  A(ei,fi),vi,stki. 

R  I  exprj  1  (t)(p)(k2)(vi)(stki) 
where 

k2  =  A(e2,f2),V2,Stk2. 

let  bk-desc  =  <*BLOCK-EXIT*  ,id,p,Av,s.c(v)(s)>  in 
let  decl  =  (DEC  .CONST  , 

(last(hd(hd(tl(ref))))). 

(hd(d)),hd(tl(discrete-range)))  in 
D|decll(t)(%(p)(id))(u)(v) 

(stk-push(bk-desc)(stko )) 
where 
u  =  Avs.stka. 

let  bg-desc  =  <*BEGIN*  ,id,%(p)(id), 

Av,s.ci(v)(s)>  in 

(mk-sd 

(kd(p))(nconc(fi  ,f2))(e:)(e) 

((case  tag(d) 

*INT* 

— ►  let  final-iter-vzJ  =  eval-expr 
(e2)  in 

loop-for-int 

(seq-stat)(ref)(d) 

(direction)  (iinal-iter-v<d) 
(seq-stat*)(t)(%(p)(id))(ci)(v3) 
(stk-push(bg**desc)(stk3 )), 

♦ENUMTYPE* 

— ►  let  initial-iter- val  =  eval-expr 

(ei) 

and  final-iter- val  =  evcd-expr 

(e2) 

and  ennm-lits  =  iiterals(d)  in 
let  parameter-updates  =  tl(get-loop-ennm-param-vals 

(initial-iter- val) 

(final-iter-val) 

(direction) 

(enum-lits))  in 

loop-for-enum 

(seq-stat)(ref)(d) 

(direction) 

(parameter- updates) 

(final-iter-val)  (seq-st  at* ) 

(t)(%(p)(id))(ci)(v3) 

(stk-push(bg-desc)(stk3 )), 

OTHERWISE 

impl-error 

(“Illegal  FOR  loop  parameter  type:  "a”, 

d)))) 

where  ci  =  Av4,stk4. 

block-exit  ( V4  )(stk4  ) 

loop-for-int  (seq-st  at)  (ref)  (d)  (direction)  (final-iter-val)  (seq-st  at* )  (t)(p)  (c)  ( v)  (stk) 

=  E  I  ref  I  (t)(p)(k)(v)(stk) 
where 

k  =  A(e,f),v,stk. 

R  J  ref  I  (t)(p)(ki)(v)(stk) 
where 

ki  =  A(ei,fi),vi,stki. 
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let  Co  =  AvojStko. 

SS  [[seq-stat*  |  (t)(p)(ci)(vo)(stko) 
where 

Cl  =  Av2,stk2. 

(mk-sd 

(hd(p))(e)(e)((e)) 

(cons(]iik-rel 

(d) 

((EQ  ,pound(e), 

(direction  =  TO 
— )■  mk-exp2(ADD 
mk-exp2(SUB  ,ei,l))))) 
loop-for-int 

(seq-stat)  (ref)  (d)(direction) 

(final-iter- val)  (seq-stat* )  (t) 

(P)(c)(v2)(stk2))))  in 

(mk-sd 

(hd(p)) 

(cons(mk-rel 

(d) 

(((direction  =  TO  LE  ,  GE  ),ei, final-iter- val)),fi))(e)(e)(co(v)(stk)), 

mk-sd 

(hd(p)) 

(cons(mk-rel 

(d) 

(((direction  =  TO  ^  GT  ,  LT  )  ,ei , final-iter- val)),fi  ))(£)(£) 
(c(v)(stk-pop(stk)))) 


loop-for-enum  (seq-stat)  (ref)  (d)  (direction)  (parameter-updates)  (final-iter- val)  (seq-stat* )  (t)  (p)  (c)  ( v)  (stk) 
=  E  I  ref  1  (t)(p)(k)(v)(stk) 
where 

k  =  A(e,f),v,stk. 

RErefI(t)(p)(ki)(v)(stk) 

where 

ki  =  A(ei,fi),vi,stki. 

let  Co  =  AvojStko. 

SS  I  seq-stat*  |  (t)(p)(ci)(vo)(stko) 
where 


Cl  =  Av2,stk2. 

(pajzimeter-updates 

(mk-sd 

(lid(p))(e)(e)((e)) 

(cons(mk-rel 

(d) 

((EQ  ,pound(e), 
hd(parameter-updates) ) ) , 
loop-for-enum 

(seq-stat)  (ref)  (d) 

(direction) 

(tl(parameter-updates)) 
(final-iter- val)  (seq-stat* ) 
(t)(p)(c)fV2)(stk2)))), 

(mk-sd 

(hd(p))(e)(e)(e) 

(c(v)(stk-pop(stk)))))  in 

(mk-sd 

(id(p)) 
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(cons(mk-rel 

(d) 

(((direction  =  TO  — ^  LE  ,  GE  ),ei, final-iter- val)),fi))(e)(£)(co(v)(stk)), 

mk-sd 

(hd(p)) 

(cons(mk-rel 

(d) 

(((direction  =  TO  —►  GT  ,  LT  ),ei,finaJ-iter-val)),fi))(e)(£) 
(c(v)(stk-pop(stk)))) 


A  loop  —  i.e.,  a  LOOP,  WHILE,  or  FOR  statement  —  has  a  label  (used  for  leaving  that  loop 
by  means  of  an  EXIT  statement)  and  a  body  consisting  of  sequential  statements.  When  a 
loop  is  entered,  a  new  local  environment  is  created  (signified  by  an  extended  path  in  the 
TSE),  and  a  *LOOP-EXIT*  descriptor  is  pushed  onto  the  execution  stack,  to  be  used  by 
EXIT  statements  to  leave  the  loop  properly.  The  continuation  in  the  descriptor  is  that  of 
the  loop  statement  itself. 

In  the  case  of  a  simple  LOOP  statement,  the  loop  is  nonterminating,  and  a  recursive  SD  is 
generated  by  auxiliary  semantic  function  loop-infinite. 

In  the  case  of  a  WHILE  statement,  auxiliary  semantic  function  loop-while  first  processes  the 
control  expression,  yielding  its  translation  and  a  guard  formula,  and  then  uses  these  items 
to  generate  two  SDs,  one  of  which  is  recursive.  The  recursive  SD  represents  the  situation 
where  the  control  expression  is  true  and  the  loop’s  body  is  executed;  recursion  stems  from 
the  appearance  of  loop-while  in  the  continuation  of  the  loop  body’s  translation.  The 
execution  stack  remains  unchanged  in  this  case.  The  other  SD  represents  the  case  where 
the  loop  is  exited  “naturally”  by  virtue  of  its  control  expression  having  the  value  false. 
The  postcondition  of  this  SD  is  the  loop  statement’s  continuation  applied  to  the  result  of 
popping  the  loop  statement’s  descriptor  from  the  execution  stack. 

The  case  of  a  FOR  statement  is  analogous  to  that  of  the  WHILE  statement,  only  more  complex 
technically. 

(SSlO)  SS  |[  EXIT  opt-dotted-name  opt-expr  ]]  (t)(p)(c)(v)(stk) 

=  let  expr  =  opt-expr  in 

R  I  expr  I  (t)(p)(k)(v)(stk) 
where 

k  =  A(e,f),vi,stki. 

let  loop-name  =  (niin(opt-dotted-name)— ►  e, 
last(opt-dotted-name))  in 
(niill(e)-->  exit(loop-name)(vi  )(stk), 

(mk-sd 

(hd(p))(cons(e,f))(£)(£) 

(ci (vj)(stki) 

where  ci  =  Av2,stk2. exit  (loop-name)  (v2)(stk2)), 
mk-sd 

(hd(p))(cons(mk-not(e),f  ))(£:)(£) 

(c(vi)(stka)))) 

exit  (loop-name)  (v)  (stk) 

=  let  <tg,id,p,g>  =  hd(stk)  in 
(case  tg 

♦LOOP-EXIT* 
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— (-inull(loop-name)A  id  ^  loop-name  — ►  exit(loop-name)(v)(stk-pop(stk)), 
g(v)(stk-pop(stk))), 

*UNDECLARE*  — ►  g(  A  w,s. exit  (loop-name)  (vv)(s))(v)(stk), 

(♦begin*  ,*BL0CK-EXIT*  )  — ►  exit(loop-name)(v)(stk-pop(stk)), 
OTHERWISE-^  execution-error(“***  EXECUTION  ERROR  ~  ILLEGAL  EXIT  ***”)) 


An  EXIT  statement: 


•  transfers  control  from  the  interior  of  a  loop  to  the  immediate  successor  of  that  loop, 
provided  that  the  EXIT  statement’s  condition  (if  any)  is  satisfied;  and 

•  adjusts  the  state  of  SDVS  to  reflect  that  transfer  of  control. 


The  loop  being  exited  can  be  named  in  the  EXIT  statement;  Phase  1  has  ensured  that  an 
appropriate  label  is  used.  If  a  loop  is  named,  then  that  loop  is  exited.  K  no  name  appears, 
then  the  smallest  loop  enclosing  the  EXIT  statement  is  exited.  The  EXIT  statement  may  be 
enclosed  within  a  system  of  nested  loops.  When  the  loop  statement  is  exited,  these  other 
loops  must  first  be  exited  in  the  order  opposite  that  in  which  they  were  entered.  When  a 
FOR  loop  is  exited,  the  effect  of  its  implict  local  declaration  of  the  iteration  parameter  is 
reversed  by  encountering  an  *UNDECLARE*  descriptor  on  the  execution  stack. 

The  translation  of  an  EXIT  statement  first  processes  its  control  expression  (which  may  be 
empty),  resulting  in  a  translated  expression  and  a  guard  formida.  If  the  control  expression  is 
nonempty,  two  SDs  axe  generated.  The  first  represents  the  case  where  the  control  expression 
has  the  value  true;  in  this  case  the  exit  process  proceeds  by  invoking  the  semantic  function 
exit,  which  appears  in  the  SD’s  postcondition.  The  other  SD  represents  the  case  where 
the  control  expression  has  the  value  false,  whereupon  the  exit  does  not  occur  and  control 
passes  to  the  immediate  successor  of  the  EXIT  statement.  If  the  control  expression  is  empty, 
the  exit  is  unconditional;  the  second  SD  is  not  even  generated. 

(SSll)  ^  [  CALL  ref  1  (t)(p)(c)(v)(stk) 

=  let  basic-ref  =  second(ref)  in 

let  expr*  =  second(second(basic-ref))  in 
MR  I  expr*  ]]  (t)(p)(k)(v)(stk) 
where 

k  =  A(e*,r),vi,stki. 

let  (lg,q,id)  =  hd(basic-ref)  in 
let  d  =  t(q)(id)  in 

gen-call(ref )  (d)  (e* )  (T  )  (t )  (p)  (c)  (  vi )  (stki ) 

gen-call(ref )  (d)  (e*  )  (r  )  ( t )  (p)  (c)  ( v)  (stk) 

=  let  (decr,seq-stat'')  =  body(d)  in 

biiid-parameters(ref )  (d)  (e* )  (r  )  (t )  (p)  (u)  (v)  (stk ) 
where 
u  =  Avi,stki. 

let  q  =  %(patli(d))(idf(d))  in 

let  par-desc  =  <*UNDECLARE*  xoIlect-pars(extract-pars(d))(ALL  ),pj 
Aci  ,V4,Stk4. 

unbind-par ameters(ref)  (d)  ( e* )  (t)  (p)  (ci )  ( V4 )  (stk4 )  >  in 
let  sp-desc  =  <*SUBPROGRAM-RETURN*  ,idf(d),p,Av,s.c(v)(s)>  in 
let  stks  =  stk-push(par-desc)(stk-push(sp-desc)(stki )) 
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and  z  =  hd(p)  in 
(mk-sd 

(z)(£)(.)(e) 

(cons((EQ  ,pound(catenate(z,“\pc”)), 

(AT  ,$(path(d))(idf(d)))), 

U2(vi)(stk5)))) 

where 

U2  =  AvsjStke. 

(null(characterizations(d)) 

-^Dldecl*  I(t)(q)(ui)(v6)(stk6), 
null(seq-stat*) 

gen-characterizations 

(e )  (p)  (char  act  erizations(d))(c2)(v6)(stk6) 
where 

C2  =  AvTjStk?. 

unbind-parameters 

(ref)(d)(e*)(t)(p)(c3)(v7)(stkr) 
where  C3  =  Avg,stk8.block-exit(v8)(stk8), 
impl-error 

(“Offline  Characterization  not  yet  implemented”)) 

where 

Ui  =  Av2,stk2. 

let  bg-desc  =  <*BEGIN*  ,idf(d),q,Avv,s.ci(vv)(s)>  in 
SS  [[  seq-stat*  ]  (t)(q)(ci)(v2)(stk-push(bg-desc)(stk2)) 
where  ci  =  Av3,stk3.block-exit(v3)(stk3) 

bind-parameters(ref)(d)(e*)(r)(t)(p)(u)(v)(stk) 

=  (null(extract-pars(d))— ►  u(v)(stk), 
let  z  =  hd(p)  in 
let  q  =  %(path(d))(idf(d))  in 

let  all-pars  =  get-qids(collect-pars(extract-pars(d))(ALL  ))(t)(q)  in 
let  from-pars  =  get-qids(collect-pars(extract-pars(d))(FROM  ))(t)(q)  in 
let  from-args  =  collect- args (e *)  (ext r act-pars (d))( FROM  )  in 
let  vi  =  push-universe(v)(z) (all-pars)  in 
let  qual-all-pars  =  get-qualiiied-ids(all-pars)(vi ) 

and  qual-from-pars  =  get-qualified -ids  (from-pars)  (vi)  in 
let  from-types  =  collect-types(extract-pars(d))(FROM  )  in 
let  sdcont  —  Aidjpre,comod, mod, post. 

(mk-decl-sd(id)  (pre)  (comod)  (mod)  (post))  in 
(mk-exists- already 

(qual-all-pars)  (zdl-pars)  (v) 

(mk-decl-sd 

(z)(=)(^)((z)) 

(nconc 

(mk-qual-id-coverings(all-pars)(qual- all-pars)  (z)  (v) , 
mk-par-decls(q)(extract-pars(d))(p)(t)(vi ), 
(null(qual-from-pars)— ►  u(vi)(stk), 
sdcont 

(z )  (r )  (5)  (qual-from-pars) 

(nconc 

(init-from-pars(  qual-from-pars)  (from- types)  (from- args), 
u(vi)(stk))))))))) 

ext  r  act-pars  (d) 

=  let  signatures  =  signatures(d)  in 
let  signature  =  hd (signatures)  in 
(null(tl(signatures)  )-^  pars(signature), 
extract-poly-pars  (pars(signature))) 
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extract~poIy-pars(pars) 

=  (iiull(paxs)— »•  e, 

let  pax  =  hd(pars)  in 

cons((hd(pax),(hd(hd(tl(par))),poly-type-desc())), 
extract-poly-pars(tl(pztrs) )) ) 

collect-pars  (par- assoc)  (kind) 

=  (nnll(pax-assoc)— e, 

let  (id,w)  =  lid(par-assoc)  in 
let  tm  =  tinode('w)  in 

(kind  =  ALL  V  (kind  =  FROM  A  ref-inode(tm)€  (REF  VAL)  ) 

— ►  cons(id,  collect-pars  (tl(par-assoc))  (kind)), 
coIlect-pars(tl(pax-assoc))  (kind) )) 

collect- args(actual-args)  (par- assoc)  (kind ) 

=  (ntill(actTial-args)— >•  e, 

let  arg  =  hd(actual-args)  in 
let  (id,w)  =  hd(par-assoc)  in 
let  tm  =  tmode(w)  in 

(kind  =  ALL  V  (kind  =  FROM  A  ref-mode(tm)G  (REF  VAL)  ) 
cons(axg,collect-airgs(tl(actual-args))(tl(par-assoc))(kind)), 
collect- args(tl(actual-axgs) )  (tl(par-assoc))  (kind))) 

coDect-types(pax-assoc)  (kind) 

=  (mill(par-assoc)— ►  e, 

let  (id,w)  =  hd(par-assoc)  in 
let  tm  =  tmode(w)  in 

(kind  =  ALL  V  (kind  =  FROM  A  ref-mode(tm)6  (REF  VAL)  ) 
cons(tdesc(w) , collect-types (tl(par- assoc))  (kind) ) , 
coDect-types(tl(par-assoc) )  (kind) ) ) 

mk-par-decls(q)  (par-assoc)  (p)  (t)  ( v) 

=  (mill(par-assoc)— ►  e, 

let  (id,w)  =  hd(par-assoc)  in 

cons((DECLARE  ,quaJified-id(qid(t(q)(id)))(v),mk-type-spec(tdesc(w))(t)(p)), 
mk-par-decls(q)  (tl(par-assoc))  (p)  (t)  (v) )) 

init-from-pars  (from-pars  )  (from-types)  (expr  *  ) 

=  (nnll(from-pars)— ►  e, 
let  dst  =  lid(from-pars) 

and  d  =  hd(from-types) 
and  src  =  hd(expr*)  in 
nconc 

(assign(d)((dst,src)), 

init-from-pars(tl(from-pars) )  (tl(from-ty  pes)  )(tl(expr  * ) )) ) 

gen-cliaracterizations(sds)  (p)  (characterizations )  (c)  ( v)  (stk) 

=  (null(characterizations)— ►  fix-characterized-sds(sds)(c(v)(stk)), 
let  (q,id,parnames,pre,mod)  =  hd (characterizations)  in 
let  post  =  sixth(hd(characterizations))  in 
gen-chaxacterizations 

(cons(gen-chajacterization(hd(p))($(q)(id))(parnajnes)(pre)(mod)(post)(v),sds)) 
(p)  (tl(chaxacterizations))  (c)  (v)  (stk)) 

gen-characterization  (z)  (qid)  (parnames)  (pre)  (mod)  ( post)  ( v ) 

=  let  sd  =  mk-sd 

(z)(((EQ  ,dot(catenate(z,“\pc’’)),(AT  ,qid))))(e)(mod) 

(append 

(post,((EQ  ,pound(catenate(2,“\pc”)). (EXITED  ,qid)))))  in 
subst-vars(parnames)  (v)  (sd) 
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unbind“parameters(ref  )(d)  (actual-axgs)(t)  (p)(c)  (v)  (stk) 

=  let  z  =  hd(p)  in 

let  q  =  %(path(d))(idf(d))  in 

let  all-pars  =  get-qids(collect-pars(extract-pars(d))(ALL  ))(t)(q)  in 
let  to-pars  =  get-qids(collect-pars(extract-pars(d))(TO  ))(t)(q)  in 
let  qual-all-pars  =  get-qualified-ids  (all-pars)  (v) 

and  qual-to-pars  =  get-qu alified-ids( to-pars)  (v)  in 
let  actual-names  =  collect- args( act ual-args)  (ext r act-pars  (d))  (TO  )  in 
let  to-args  =  underef( actual-names)  in 
(mk-sd 

{z){e){e){e) 

(let  u  =  Aa,b,c,d,e,f,g,h,ij. 

(unbind-parameters-sds(a)(b)(c)(d)(e)(f)(g)(h)(i)(j))  in 
cons((EQ  ,pound(catenate(z, “\pc” )), 

(EXITED  ,$(path(d))(idf(d)))), 

u(z)  (ref  )(d)(all-pajs)  (qual-all-pars)  (qual-to-pars)  (to- args)(c)(v)  (stk)))) 

underef(  actual- args) 

=  (null(  actual- args)— ►  e, 

let  actarg  =  hd(actual-args)  in 
cons(second(actarg),underef(tl(actual-args)))) 

unbind-parameters-sds(z)  (ref )  (d)  (all-pars)  (qual- all-pars)  (qual-to-pars)  (to-args)  (c)  (v)  (stk) 
=  (null(qual- all-pars) 

— ^  mk-sd 

(c(pop-universe(  v)  (all-p2Lrs) )  (stk-pop(  st  k) ) ) , 

(nuD(to-args) 

— ^  mk-sd 

(z)  (c  )(e)  (cons  (z, qual- all-pars)) 

(cons(mk-cover- already  (dot  (z), cons  (pound(z), qual- all-pars)), 
cons  (mk-undecl  are  (qual- all-pars), 
c(pop-universe(v)(all-pars))(stk-pop(stk))))), 
let  u  =  Aid, pre,comod, mod, post. (mk-sd (id)(pre)(comod)(mod)(post))  in 
mk-sd 

(z)(^)(^)(^o-args) 

(let  to- types  =  collect-types(extract-pars(d))(TO  )  in 
nconc 

(assign-to-args  (to-args)  (to- types)  (qual-to-pars), 
u(z)(e)(e)(cons(z, qual-all-pars)) 

(cons(mk-cover- already  (dot  (z),cons(pound(2),qu2J-all-pars)), 
cons(mk-undeclare(qual-all-pars) , 
c(pop-universe(v)(all-pars))(stk-pop(stk))))))))) 

mk-cover-already(id,lst) 

=  (new-declarationsO—^"  mk-rel(int-type-desc())((EQ  ,hd(lst),id)), 
mk-cover(id,lst)) 

mk-undeclare(lst)  =  cons(UNDECLARE  ,1st) 

assign-to-args(to-args)  (to- types)  (to-pars) 

=  (null(to-args)— »•  e, 
let  dst  =  hd(to-args) 
and  d  =  hd(to-types) 
and  src  =  hd (to-pars)  in 
nconc 

(assign(d)  ( (dst,dot  (src) )) , 

assign-to-args(tl(to-args))(tl(to-types))(tl(to-pars)))) 
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Procedure  calls  in  Stage  2  VHDL  use  call  by  value-result  semantics.  The  translation  of  a 
procedure  call  consists  of  the  following  steps: 

•  The  actual  parameters  axe  translated  and  then  gen-call  pushes  a  subprogram  return 
descriptor  and  then  a  (single)  undeclaration  descriptor  for  all  of  the  formal  parameters 
onto  the  execution  stack. 

•  SDVS  declarations  of  all  of  the  formal  parameters  are  emitted  (in  bind- parameters). 

•  The  IN  and  INOUT  formal  parameters  are  bound  to  their  corresponding  actual  param¬ 
eters  by  first  translating  the  actual  parameters  and  then  in  effect  assigning  them  to 
their  corresponding  formals  by  emitting  appropriate  equality  relations  (as  in  the  trans¬ 
lation  of  assignment).  This  is  done  by  auxiliary  semantic  function  bind-parameters. 
In  these  equality  relations,  the  qualified  names  of  the  formal  parameters  must  refer  to 
the  procedure’s  declaration  TSE,  whereas  the  qualified  names  in  the  actual  parame¬ 
ters  refer  to  the  procedure’s  calling  environment.  This  implements  the  semantics  of 
static  binding  required  by  VHDL. 

•  The  subprogram  may  have  either  a  specific  body  or  a  set  of  state  delta  characteriza¬ 
tions,  but  not  both.  Different  actions  are  performed  in  each  case. 

1.  If  the  procedure  has  a  body,  the  procedure’s  local  declarations  and  statements 
are  translated  in  the  procedure’s  declaration  environment  after  first  pushing  a 
*SUBPROGRAM-RETURN*  descriptor  on  the  execution  stack.  This  de¬ 
scriptor  will  be  used  to  perform  a  return  from  the  procedure,  whether  that  return 
is  explicit  via  a  RETURN  statement  or  implicit  via  encountering  the  end  of  the  pro¬ 
cedure’s  body. 

2.  K  the  procedure  has  one  or  more  characterizations^,  state  deltas  representing  the 
actions  of  the  procedure  are  produced  by  the  functions  gen-characterizations 
and  gen-characterization.  These  two  functions  use  the  SDVS  functions 
fixed-characterized-sds  and  subst-vars,  part  of  the  implementation  of  an 
offline  characterization  mechanism  for  SDVS  [16,  17]. 

•  Auxiliary  semantic  function  unbind-parameters  is  invoked  to  assign  the  (final)  val¬ 
ues  of  the  INOUT  and  OUT  formal  parameters  to  their  corresponding  actual  parameters 
(which  must,  of  course,  have  reference  types). 

(SS12)  SS  [[  RETURN  opt-expr  J  (t)(p)(c)(v)(stk) 

=  let  expr  =  opt-expr  in 
R  I  expr  I  (t)(p)(k)(v)(stk) 
where 

k  =  A(e,f),vi,stki. 

(]iull(e)— return(vi)(stki), 
let  d  =  context(t)(p)  in 
(mk-sd 

(hd(p))(f)(e)((qid(d))) 

(nconc 

^None  such  cire  allowed,  as  yet,  by  Stage  2  VHDL. 
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(assign 

(tdesc(extract“rtype(d))) 

((qualified-id(qid(d))(v),e)), 

Cl  (vi)(stki) 

where  ci  =  Av2,stk2.return(v2)(stk2))))) 


return(v)(stk) 

=  let  <tg,qnaLme,pth,g>  =  hd(stk)  in 
(case  tg 

*UNDECLARE*  ^  g(Avv,s.return(vv)(s))(v)(stk), 

(♦BLOCK-EXIT*  ♦SUBPROGRAM-RETURN*  )  g(v)(stk-pop(stk)), 

(♦BEGIN*  ♦LOOP-EXIT*  ♦PACKAGE-BODY-EXIT*  )  —  return(v)(stk-pop(stk)), 
OTHERWISE 

impl-error(“Bad  execution  stack  descriptor  tag  in  context:  *'a”,tg)) 

context(t)(path) 

=  let  d  =  t(path)(*UNIT*  )  in 

(d  =  *UNBOUND*  — ►  context  (t)  (rest  (path)), 

(case  tag(d) 

(♦PROCEDURE*  ,*FUNCTION*  ,*PACKAGE*  )  ^  t (rest (path)) (last (path)), 
OTHERWISE  — context  (t)(rest(path)))) 

extract-rtype(d) 

=  let  signature  =  hd(signatures(d))  in 
rtype  (signature) 


RETURN  statements  come  in  two  varieties:  with  an  expression,  to  effect  a  return  from  a 
function,  and  without  an  expression,  to  effect  a  return  from  a  procedure.  If  the  RETURN  is 
from  a  function,  then  the  expression  must  first  be  translated  and  an  assignment  of  its  value 
to  the  function’s  (statically  and  dynamically  uniquely  qualified)  name  must  be  cisserted  via 
an  equality  relation.  Then  (no  matter  whether  the  RETURN  is  from  a  procedure  or  a  function), 
the  function  return  (similar  to  exit)  is  invoked  to  use  the  topmost  *SUBPROGRAM- 
RETURN*  descriptor  on  the  execution  stack  to  return  from  the  subprogram,  after  first 
effecting  exits  from  intervening  loops  and  effecting  necessary  undeclarations.  The  function 
context  deternaines  the  qualified  name  of  the  subprogram  from  which  the  return  is  being 
made. 

(SS13)  SS  [[  WAIT  reP  opt-expii  opt-expr2  |  (t)(p)(c)(v)(stk) 

=  let  Cl  =  AvjStk. 

(mk-sd 

(hd(p))(£)(£)(£) 

((make-vhdl-try-resume-next-process(hd(p))(v)(stk))))  in 
MEIreri(t)(p)(h)(v)(stk) 
where 

h  =  A(e*,r),vi,stki. 

let  expri  =  opt-expii  in 
R  [[  expn  ]]  (t)(p)(ki)(v)(stk) 
where 

ki  =  A(ei,fi),v,stk. 

let  expr2  =  opt-expr2  in 
R  |expr2  1  (t)(p)(k2)(v)(stk) 
where 

k2  =  A(e2,f2),v,stk. 

let  process-id  =  last  (find-pro  cess-env 


148 


(t.)(p))  in 


(mk-sd 

(hd(p))(nconc(fi  ,f2,f*))(e)(e) 
((make-vhdl-process-suspend 

(process-id)  (get-signals  (e* ) )  (ei ) 
(e2)(c)(ci(v)(stk))))) 


find-process-en  V  (t )  (p) 

=  (null(p)V  tag(t(p)(*UNIT*  ))=  *PROCESS*  — ►  p,  find-process-env(t)(rest(p))) 

get-signals(signal-names) 

=  (null(signal-names)-^  e, 

cons(find-signal-structure  (hd(signal-najiies)  ), get-sign  als  (tl(sign  al-names)  )) ) 


8.4.7  Waveforms  and  Transactions 

(Wl)  W  [[  WAVE  transaction*^  ]  (t)(p)(wave-cont)(v)(stk) 

=  TRM  I  transaction"**  |  (t)(p)(wave-cont)(v)(stk) 

(TRMO)  TRM  [[e  J  (t)(p)(wave-cont)(v)(stk)  =  wave-cont((e,e))(v)(stk) 

(TRMl)  TRM  [transaction  transaction*  ]]  (t)(p)(wave-coru^(v)(stk) 

=  TR  [[  transaction  ]]  (t)(p)(trans-cont)(v)(stk) 
where 

trans-cont  =  A(trans, guard), v,stk. 

TRM  IT  transaction*  |  (t)(p)(wave-conti)(v)(stk) 
where 

wave-conti  =  A(trans*, guard*), v,stk. 
wave-cont 

((cons(trans,trans*), 
nconc(guard, guard*  )))(v)(stk) 

The  transactions  in  a  waveform  are  translated  in  order,  from  left  to  right. 

(TRl)  TR  I  TRANS  expr  opt-expr  |  (t)(p)  (trans-cont) (  v)(stk) 

=  R  |[  expr  1  (t)(p)(k)(v)(stk) 
where 

k  =  A(ei,fi),v,stk. 

let  expr2  =  opt-expr  in 
R  [[expr2  I  (t)(p)(ki)(v)(stk) 
where 

ki  =  A(e2,f2),v,stk. 
trans-cont 

((mk-transaction-for-ui>date(€i  )(e2),nconc(fi  ,£2))) 

(v)(stk) 

ink“transaction-for-update(  transaction- value)  (delay- time) 

=  let  transaction-time  =  (nuU(delay-time)-^  mk-add-delay-time(0)(l), 

mk-add-deiay-time(delay-time)(0))  in 
mk-transaction(transaction-time)(transaction- value) 

mk-add-delay-time(global)  (delta) 

=  (TIMEPLUS  ,dot(VHDLTIME  ),mk-vhdltime(global)(delta)) 
mk-vhdltime (global) (delta)  =  (VHDLTIME  ,global, delta) 
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8.4.8  Expressions 


Two  semantic  functions,  E  and  R,  translate  expressions.  E  obtains  tbe  (qualified)  place 
name  corresponding  to  a  scalar  or  array.  R  yields  an  expression  that  represents  a  value 
rather  than  a  reference. 

(MEO)  me  I  e  I  (t)(p)(h)(v)(stk)  =  h((£,e))(v)(stk) 

(MEl)  Ml  I  ref  rer  1  (t)(p)(h)(v)(stk) 

=  E  I  ref  I  (t)(p)(k)(v)(stk) 
where 

k  =  A(e,f),vi,stki. 

MEEreri(t)(p)(h:)(vi)(stki) 
where  hi  =  A(e*,f*),V2,stk2.h((cons(e,e*),nconc(f,f*)))(v2)(stk2) 


(MRO)  MR  [e  J  (t)(p)(h)(v)(stk)  =  h((£,£))(v)(stk) 

(MRl)  MR  |[expr  expr’  J  (t)(p)(h)(v)(stk) 

=  R  [[  expr  1  (t)(p)(k)(v)(stk) 
where 

.  k  =  A(e,f),vi,stki. 

MR  IT  expr*  ]  (t)(p)(hi)(vi)(stki) 
where  hi  =  A(e*,r),V2,stk2.h((cons(e,e*),nconc(fjr)))(v2)(stk2) 


The  translation  of  a  (possibly  empty)  multiple  expression  list  yields  a  list  of  translated 
expressions  and  a  corresponding  list  of  guard  formulas. 

(El)  E  I  REF  modifier^  ]  (t)(p)(k)(v)(stk) 

=  let  basic-ref  =  modifier*^  in 

let  (basic-ncLme,d)  =  gen- basic-name  (basic- ref  )(t)(v)  in 
gen-name(ref)(basic-name)(s)(d)(tl(basic-ref))(t)(p)(k)(v)(stk) 

gen-basic-name(basic-ref )  (t)  (v) 

=  let  (tg,q,id)  =  hd(basic-ref)  in 
let  d  =  t(q)(id)  in 
(case  tag(d) 

(♦PROCEDURE*  ,*FUNCTION*  )  -  (qualiiied-id(qid(d))(v),d), 

OTHERWISE  (qualihed-id(qid(d))(v),tdesc(type(d)))) 

gen-name(ref )  (e)  (f  )(d)(ref-tail)  (t)  (p)(k)  (v)  (stk) 

=  (null(ref-tail)-.  (tag(d)=  ♦RECORDTYPE*  ^  k((ed))(v)(stk),  k((e,f))(v)(stk)), 
let  modifier  =  hd(ref-tail)  in 
let  (tgjisp)  =  modifier  in 
(case  tg 

INDEX  gen- array- ref(isp)(e)(f)(d)(t)(p) (cod t)(v) (stk), 

SELECTOR  — >■  gen-record-ref(isp)(e)(f)(d)(cont)(v)(stk), 

PARLIST  — »•  gen-function-call(ref)(isp)(d)(t)(p)(cont)(v)(stk), 

OTHERWISE 

— +  impl-error( “Unrecognized  Stage  2  VHDL  reference  modifier  tag:  “a”,tg)) 
where 

cont  =  A(ei,fi,di),vi,stki. 

gen-name(ref)(ei)(fi)(di)(tl(ref-tail))(t)(p)(k)(vi)(stki)) 
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gen-axray-ref(expr)  (e)  (f )  (d)  (t)  (p)  (cont)  (v)  (stk) 

=  R  I  expr  I  (t)(p)(k)(v)(stk) 
where 

k  =  A(eo,fo),vo,stko. 

cont(((EIiEMENT  ,e,eo), 
nconc 

(nnll(iib(d)) 

— ►  (mk-rel(int-type-desc())((GE  ,eo, (ORIGIN  ,e)))), 
(mk-rel(int-type-desc())((GE  ,eo, (ORIGIN  ,e))), 
mk-rel 

(int-type-desc()) 

((LE  ,eo, 
nik-exp2 

(SUB  ,mk-exp2(ADD  , (ORIGIN  ,e), (RANGE  ,e)),l)))))), 
elty(d)))(vo)(stko) 

gen-record-ref(id)  (e)  (f )  (d)  (cont)  (v)  (stk) 

=  cont((mk-recelt(e,id),f,lookup-record-desc(components(d))(id)))(v)(stk) 

mk-recelt(e)(id)  =  (RECORD  ,e,id) 

lookup~record-desc(coinp*  )(id) 

=  (nuU(comp*)^  *UNBOUND*  , 
let  (x,d)  =  hd(comp*)  in 
(x  =  id  — ►  d,  lookup-record-desc(tl(conip*))(id))) 

gen-function-call(ref )  (expr* )  (d)  (t)  (p)  (cont)  (v)  (stk) 

=  declare-function-naine(d)  (t)  (p)  (u)  ( v)  (stk) 
where 
n  =  AvsjStka. 

MR  [[expr*  |  (t)(p)(li)(v3)(stk3) 
where 

h  =  A(e*,f*),vi,stki. 

gen-caJl(ref)(d)(e*)(r)(t)(p)(c)(vO(stki) 
where 
c  =  Av2,stk2. 

cont  ( (qualified-id(qid(d) )  ( V2 ) ,  e , 

tdesc(extract-rtype(d))))(v2  )(stk2 ) 

declare-function-name(d)  (t)  (p)  (u)  (v)  (stk) 

=  let  dd  =  tdesc(extract“rtype(d))  in 
let  q  =  path(d)  in 
let  z  =  lid(q)  in 

let  suqn"^  =  get-qids((idf(d)))(t)(q)  in 
let  vi  =  pTish-universe(v)(z)(snqn‘*')  in 
let  duqn*^  =  get-quaJiiied-ids(suqn'‘‘ )(vi)  in 
let  dc-desc  =  <*UNDECLARE*  ,idf(d),q, 

AUi,V2,Stk2. 

undeclare-function-nanie(suqn‘*‘ )(duqn'^)(2)(ui)(v2)(stk2)>  in 
(mk-exists- already 
(dnqn"*"  )(suqn"^  )(v) 

(mk-decl-sd 

W(^)(^)(W) 

(nconc 

(mk‘qual‘id-coverings(suqn'^ )  (duqn  ^ )  (z)  ( v) , 
mk-scalar-nonsignal-dec-post 

(e)((duqn+,e,dd))(t)(q)(n)(vi)(stk-push(dc-desc)(stk)))))) 


undeclare-functioii-naine(suqns)(duqns)(2)(u)(v)(stk) 

=  (mk-sd 

(z)  (e)  (e)  (cons(2  jduqns)) 

(cons(mk“COver-already(dot(z))(cons(pound(2),duqns)), 

cons(ink“Undeclare(diiqns), 

u(pop-universe(v)(suqns))(stk-pop(stk)))))) 


A  reference  must  begin  with  at  least  a  basic  reference^  which  contains  its  root  identifier 
and  access  path.  Following  its  basic  reference,  a  reference  has  zero  or  more  array  index, 
record  field  selection,  or  actual  parameter  list  modifiers.  The  reference  itself  is  translated 
by  gen- name;  the  basic  reference  is  translated  by  gen-basic- name.  The  array  index  and 
record  field  selection  modifiers  are  translated  by  gen-array- ref  and  gen- record- ref.  The 
translation  of  a  reference  is  complicated  by  the  appearance  of  a  parameter  list  modifier, 
which  represents  a  function  call;  these  are  translated  by  gen-function-calL 

Whenever  a  function  is  called  (as  part  of  an  expression),  the  name  of  that  function  is  used 
in  the  expression  to  name  the  value  returned  by  that  particular  invocation.  Because  the 
same  function  can  be  invoked  more  than  once  in  the  same  expression,  each  corresponding 
instance  of  the  function’s  name  must  be  uniquely  dynamically  qualified,  and  each  of  those 
DUQNs  must  be  declared  (and  later  undeclared  when  they  should  no  longer  exist)  to  SDVS. 
The  declaration  is  performed  by  function  declare-function-name  and  the  undeclaration 
by  undeclare-function-name;  the  invocation  of  the  latter  function  is  encapsulated  in  an 
undeclaration  (*UNDECLARE*)  descriptor  pushed  onto  the  execution  stack.  After  a 
new  dynamic  instance  of  the  function’s  name  is  declared,  gen-function-call  evaluates  the 
actual  parameters  and  then  invokes  gen-call  to  finish  the  translation  of  this  function  call. 

(RO)  R  I  e  1  (t)(p)(k)(v)(stk)  =  k((e,£))(v)(stk) 

For  technical  convenience,  expressions  can  be  empty;  the  translation  of  an  empty  expression 
yields  empty  results. 

(Rl)  R  I  FALSE  1  (t)(p)(k)(v)(stk)  =  k((FALSE  ,£))(v)(stk) 

(R2)  R  I  TRUE  1  (t)(p)(k)(v)(stk)  =  k((TRUE  .£))(v)(stk) 

(R3)  R  [  BIT  bitUt  1  (t)(p)(k)(v)(stk)  =  k((B  [[  bitHt  ]]  ,£))(v)(stk) 

(R4)  R  [  NUM  constant  |  (t)(p)(k)(v)(stk)  =  k((N  [[  constant  ]  ,e))(v)(stk) 

(R5)  R  [[  TIME  constant  FS  J  (t)(p)(k)(v)(stk)  =  k((N  |[  constant  ]  ,£:))(v)(stk) 

(R6)  R  [[  CHAR  constant  |  (t)(p)(k)(v)(stk)  —  k((expr,€  ))(v)(stk) 

(R7)  R  I  ENUMLIT  id  ]  (t)(p)(k)(v)(stk)  =  k((id,e))(v)(stk) 
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(R8)  R  I BITSTR  bit-lif  |  (t)(p)(k)(v)(stk) 

=  let  expr*  =  bit-lit*  in 

MR|[expr*  1  (t)(p)(k)(v)(stk) 

(R9)  R  I STR  char-Ht*  J  (t)(p)(k)(v)(stk) 

=  let  expr*  =  char-lit*  in 

MR  IF  expr*  1  (t)(p)(k)(v)(stk) 

(RIO)  R  |[REF  modifier'''  |  (t)(p)(k)(v)(stk) 

=  let  ref  =  expr  in 

E  I  ref  I  (t)(p)(ki)(v)(stk) 

where  ki  =  A(e,f),vi,stki.k((dot(e),f))(vi)(stki) 

Scalar  and  array  references  are  first  E-translated,  yielding  an  expression  and  a  guard  for¬ 
mula.  The  corresponding  R-translation  is  obtained  by  applying  the  dot  operation  to  the 
translated  expression. 

(Rll)  R  I PAGGR  expr*  |  (t)(p)(k)(v)(stk)  =  MR  [  expr*  J  (t)(p)(k)(v)(stk) 


(R12)  R  I  unary-op  expr  |  (t)(p)(k)(v)(stk) 

=  R  I  expr  1  (t)(p)(ki)(v)(stk) 

where  ki  =  A(e,f),vi,stki.k((mk-expl(unary-op,e),f))(vi)(stki) 

mk-expl  (unary-op  ,e) 

=  (case  unary-op 

NOT  (NOT  ,e), 

BNOT  (USNOT  ,e), 

PLUS  ^  e, 

NEG  (MINUS  ,e), 

ABS  (ABS  ,e), 

(RNEG  )RABS  )  — >■  (unary-op ,e), 

OTHERWISE 

— ►  impl-error( “Unrecognized  Stage  2  VHDL  unary  operator:  "“a”, unary-op)) 


(R13)  R  [binary-op  expri  expr2  |  (t)(p)(k)(v)(stk) 

=  R  I  expri  1  (t)(p)(ki)(v)(stk) 
where 

ki  =  A(ei,fi,vi,stki). 

R  [expr2  I  (t)(p)(k2)(vi)(stki) 
where 

k2  ==  A(e2,f2),V2,Stk2- 

k((mk-exp2  (binary-op, ei  ,e2),nconc(fi  ,f2)))(v2)(stk2) 


(R14)  R  [  relational-op  expri  expr2  J  (t)(p)(k)(v)(stk) 

=  R  [  expn  I  (t)(p)(ki)(v)(stk) 
where 

ki  =  A(ei,fi,vi,stki). 

R  [expr2  1  (t)(p)(k2)(vi)(stki) 
where 

k2  =  A(e2,f2),V2,Stk2. 

let  d  =  T  [  expri  1  (t)(p)  in 
k((nik-rei(d)  ( (relational-op,  ei  ,^2  )),nconc(fi  ,f2))) 
(V2)(stk2) 
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8.4.9  Expression  Types 


The  function  mk-rel  (described  earlier)  requires  a  type  descriptor  as  its  first  argument; 
application  of  the  semantic  function  T  determines  the  type  descriptor  of  an  expression  as 
Mows: 


•  if  the  expression  is  a  constant,  its  type  descriptor  is  the  basic  type  of  that  constant; 

•  if  the  expression  is  a  reference,  its  type  descriptor  is  the  basic  type  of  that  reference, 
obtained  by  the  function  get-type-desc;  and 

•  if  the  expression  contains  operators,  its  type  descriptor  is  the  basic  result  type  of  its 
top-level  operator  (if  there  is  one); 


(TO)  T  J  e  ]]  (t)(p)  =  void-type-desc() 

(Tl)  T  I  FALSE  J  (t)(p)  =  bool-type-desc() 

(T2)  T  I  TRUE  1  (t)(p)  =  booMype-desc() 

(T3)  T  [[  BIT  bitlit  ]]  (t)(p)  =  bit-type-desc() 

(T4)  T  [[  NUM  constant  ]]  (t)(p)  =  int“type-desc() 

(T5)  T  J  TIME  constant  FS  ]]  (t)(p)  =  time-type-desc() 

(T6)  T  |[  CHAR  constant  |  (t)(p)  =  char-type-desc(t) 

(T7)  T  I  ENUMLIT  id  I  {t)(p) 

=  let  d  =  lookup-desc(t)(p)(id)  in 
tdesc(type(d)) 

(T8)  T  [[BITSTR  bit-lit*  |  (t)(p)  =  bitvector-type-desc() 
(T9)  T  [[  STR  char-lit*  J  (t)(p)  =  stiing-type-desc(t) 


(TIO)  T  I  REF  modifier+  ]  (t)(p) 

=  let  basic-ref  =  modifier"*"  in 
get-type-desc(basic-ref)(t)(p) 

get-type-desc(basic-ref)(t)(p) 

=  let  (tg,q,id)  =  hd(basic-ref)  in 
let  d  =  t(q)(id)  in 
(case  tag(d) 

(♦PROCEDURE*  *FUNCTION*  *PROCESS*  ) 

-H*  process-ref-tail(d)(tl(basic-ref))(t)(])), 

OTHERWISE  — ^  process-ref-tail(tdesc(type(d)))(tl(basic-ref))(t)(p)) 
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process-ref-tail(d)  (ref-tail)  (t)(p) 

=  (niill(ref-tail)— ►  d, 

let  modifier  =  hd(ref-tail)  in 
(case  hd  (modifier) 

INDEX  process-ref-tail(elty(d))(tl(ref-tail))(t)(p), 

SELECTOR 
— ►  process-ref-tail 

(lookup-record-desc(componeiits(d) )  (second  (modifier) ))  (tl(ref- tail)) 

(t)(P), 

PARLIST  — ►  process-ref-tail(tdesc(extrax:t-rtype(d)))(tl(ref-tail))(t)  (p), 
OTHERWISE 
— ►  impl-error 

("Unrecognized  Stage  2  VHDL  reference  modifier  tag:  “a”, 
hd  (modifier)))) 


(Til)  T  J  PAGGR  expr*  J  (t)(p)  =  void-type-desc() 

(T12)  T  [  unary-op  expr  J  (t)(p)  =  tdesc(restypel (unary-op)) 

restypel  (unary-op) 

=  (case  unajy-op 

NOT  (VAL  ,bool-type-desc()), 

BNOT  (VAL  ,bit-type-desc()), 

(PLUS  ,NEG  ,ABS  )  (VAL  ,int-type-desc()), 

(RNEG  ,RABS  )  (VAL  ,real-type-desc()), 

OTHERWISE 

— +•  impl-error ("Iharecognized  Stage  2  VHDL  unary  operator:  "a”, unary-op)) 


(T13)  T  I  binary-op  expri  expr2  1  (t)(p) 

=  tdesc(restype2  (binary-op)  ((expri  ,expr2))(t)(p)) 

restype2  (binary-op)  (expri  ,expr2 )  (t)  (p) 

=  (case  binary-op 

(AND  ,NAND  ,OR  ,NOR  ,XOR )  mk-type((DUMMY  VAL)  )(bool-type-desc()), 

(BAND  , BN  AND  ,BOR  ,BNOR  ,BXOR  )  mk-type(  (DUMMY  VAL)  )(bit-type-desc()), 

(ADD  ,SUB  ,MUL  ,DIV  ,MOD  ,REM  ,EXP  )  mk-type((DUMMY  VAL)  )(int-type-desc()), 
(RPLUS  ,RMINUS  ,RTIMES  ,RDIV  ,REXPT  )  mk-type(  (DUMMY  VAL)  )(real-type-desc()), 
CONCAT 

-••let  di  =  T  [ expri  |  (t)(p) 

and  d2  =  T  |[  expr2  ]  (t)(p)  in 
mk-type((DUMMY  VAL)  )(mk-concat-tdesc(di)(d2)), 

OTHERWISE 

— ►  impl-error  (“Unrecognized  Stage  2  VHDL  binary  operator:  "a”, binary-op)) 

mk-concat-tdesc(di  )(d2) 

=  (is-bit-tdesc?(di  )V  is-bitvector-tdesc?(di) 

— ►  array-t3rpe-desc 

(new-array-type-name(BIT-VECTOR  ))(e)(£)(tt)  (direction (di  ))(lb(di  ))(£:) 

(bit-type-desc() ) , 
let  idfi  =  idf(di)  in 
array-type-desc 

(new-array-type-name((consp(idfi)— ►  hd(idfi),  idfi)))(e)(£)(tt) 

(direction(di  ))(lb(di  ))(e)(elty(di ))) 

(Tl4)  T  [[  relational-op  expri  expr2  J  (t)(p)  =  bool-type-desc() 
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8,4.10  Primitive  Semantic  Equations 
The  following  semantic  functions  are  primitive. 
(Nl)  N  |[  constant  J  =  constant 


(Bl)  B  ([  bitlit  I  =  mk-bit-simj>symbol(bitlit) 

mk-bit~simp-symbol(bitlit) 

=  (case  bitlit 

0  (BS  0  1)  , 

1  ^  (BS  1  1)  , 

OTHERWISE^  iinpl-error( “Can’t  construct  simp  symbol  for  bit:  "a  ”, bitlit)) 
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9  Conclusion 


A  precise  and  well-documented  formal  specification  of  the  Stage  2  VHDL  translator  has  been 
presented  in  this  report.  We  have  completed  and  exercised  a  Common  Lisp  implementation 
of  both  translation  phases  described  herein. 

Stage  2  VHDL  represents  a  robust  behavioral  subset  of  the  VHSIC  Hardware  Description 
Language,  extending  Stage  1  VHDL  with  the  addition  of  the  following  VHDL  language  fea¬ 
tures:  (restricted)  design  files,  declarative  parts  in  entity  declarations,  package  STANDARD 
(containing  predefined  types  BOOLEAN,  BIT,  INTEGER,  TIME,  CHARACTER,  REAL,  STRING,  and 
BIT.VECTOR),  user-defined  packages,  USE  clauses,  array  type  declarations,  certain  predefined 
attributes,  enumeration  types,  subprograms  (procedures  and  functions,  excluding  parame¬ 
ters  of  object  class  SIGNAL),  concurrent  signal  assignment  statements,  FOR  loops,  octal  and 
hexadecimal  representations  of  bitstrings,  ports  of  default  object  class  SIGNAL,  and  general 
expressions  of  type  TIME  in  AFTER  clauses. 

As  the  SDVS  interface  to  VHDL  continues  to  expand  and  mature,  our  confidence  grows 
in  our  language  translator  semantic  specification  and  implementation  paradigm.  In  1993, 
we  wfil  be  applying  this  paradigm  to  implement  a  translator  for  the  Stage  3  VHDL  lan¬ 
guage  subset.  Stage  3  VHDL  is  expected  to  include  constructs  for  structural  descriptions 
(e.g.,  component  declarations,  component  instantiation  statements,  and  configuration  dec¬ 
larations). 

Furthermore,  SDVS  wiU  be  enhanced  with  proof  capabilities  enabling  both  more  general 
specifications  and  more  tractable  proofs  of  VHDL  hardware  descriptions.  Two  enhance¬ 
ments  of  particular  importance  will  be  the  ability  to  translate  structural  descriptions,  and 
the  ability  to  reason  about  symbolic  representations  of  VHDL  time. 
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